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ABSTRACT 

A  FORTRAN  77  computer  code  employing  an  adaptation  of  the 
finite  differencing  algorithm  proposed  by  Brian  was  developed  for  the 
solution  of  transient  heat  conduction  problems  in  cylindrical  geome- 
tries. Validation  of  code  was  accomplished  by  comparison  with  an  ana- 
lytic solution  derived  for  a  model  with  symmetric,  linear  boundary 
conditions.  Accuracy  of  results  for  asymmetric  and  non-linear  bound- 
ary conditions  was  determined  by  comparison  with  a  similarly  vali- 
dated code  employing  the  explicit  method.  Code  effectiveness  was 
then  demonstrated  by  conducting  a  transient  temperature  analysis  for 
a  simulated  earth-orbiting  satellite.  Brian's  method  demonstrated 
unconditional  stability  with  associated  significant  reductions  in  execu- 
tion time  compared  to  the  explicit  method.  The  effects  of  discretiza- 
tion error  on  the  accuracy  of  results  require  further  investigation. 
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I.  INTRODUCTION 

A   BACKGROUND 

Analysis  of  transient  heat-conduction  problems  necessarily 
involves  solution  of  the  heat  diffusion  equation.  In  the  absence  of 
internal  generation  of  energy,  this  is  represented  by 

V.uvr)=pc,§  (11) 

Although  analytic  solutions  may  be  obtained  to  certain  simple  transient 
problems  [Ref.  l:p.  212],  many  of  the  practical  problems  encountered 
by  engineers  involve  one  or  a  combination  of  nonlinearities,  complex 
geometries,  complex  boundary  conditions,  or  systems  of  coupled  par- 
tial differential  equations  of  which  any  one  may  necessitate  the  use  of 
numerical  methods.  Although  Monte-Carlo  (probability  sampling)  and 
finite-element  methods  have  been  applied  to  the  solution  of  heat-con- 
duction problems,  the  approximation  of  partial  derivatives  by  finite 
differences  presents  a  straightforward  and  popular  approach  [Ref.  2: p. 
471].  Two  fundamental  finite-difference  techniques  are  the  implicit 
and  explicit  methods  and  their  derivatives. 

R      PROBLEM 

The  analysis  of  transient  heat-conduction  problems  in  three 
dimensions  is  of  great  importance  to  many  fields  of  science  and  engi- 
neering, but  solutions  are  often  quite  costly  in  terms  of  computational 


effort  and  time  consumed  in  their  solution.  Numerical  solutions  to 
these  problems  frequently  tax  the  computational  and  storage  capaci- 
ties of  available  computers  [Ref.  3:p.  367]. 

The  explicit  method  offers  the  benefits  of  relatively  low  storage 
requirements  and  simplicity  in  formulation,  coding,  and  execution. 
However,  it  is  only  conditionally  stable  and  is  subject  to  a  limitation  on 
the  maximum  timestep  which  may  be  employed.  If  the  maximum 
timestep  is  exceeded,  the  solution  experiences  numerically  induced 
oscillations  which  may  cause  the  solution  to  diverge  from  the  correct 
result  [Ref.  l:p.  214].  This  timestep  restriction  causes  the  explicit 
method  to  be  inefficient  in  terms  of  computational  effort  for  the  analy- 
sis of  lengthy  transient  periods. 

The  implicit  method  offers  the  advantage  of  being  unconditionally 
stable  and  therefore  exempt  from  timestep  restrictions.  However,  this 
method  calculates  node  temperatures  by  the  simultaneous  solution  of 
the  nodal  heat  balance  equations.  Thus,  savings  gained  from  the  lack  of 
a  timestep  restriction  are  often  quickly  offset  by  the  increased 
computational  effort  associated  with  the  required  matrix  inversions. 

The  implicit  alternating  direction  method  (ADI)  is  an  uncondi- 
tionally stable  extension  of  the  implicit  method  which  reduces  the 
number  of  required  computations  by  transforming  the  problem  into 
tridiagonal  form.  However,  a  direct  extension  of  this  method  into 
three  dimensions  becomes  only  conditionally  stable,  is  restricted  to  a 
maximum  timestep  in  a  fashion  similar  to  the  explicit  method,  and 
demonstrates  similar  shortcomings  [Ref.  4:p.  453]. 


C      REQUIREMENT 

A  finite  difference  technique  which  is  unconditionally  stable  in 
three  dimensions  and  unencumbered  by  the  requirement  to  manipu- 
late large  matrices  is  required  for  the  solution  of  transient  heat- 
conduction  problems  in  three  dimensions.  The  algorithm  proposed  by 
Brian  [Ref.  3]  offers  such  a  technique. 

D.      OBJECTIVES 

1.  Adapt  the  algorithm  proposed  by  Brian  to  the  solution  of  three- 
dimensional  transient  heat-conduction  problems  in  cylindrical 
geometries. 

2.  Evaluate  the  relative  accuracy  of  the  results  obtained  using  Brian's 
Method  by  comparing  them  against  those  obtained  using  the 
explicit  method. 

3.  Evaluate  the  speed  of  execution  of  Brian's  Method  relative  to  that 
of  the  explicit  method  in  terms  of  central  processing  unit  (CPU) 
seconds. 

4.  Illustrate  the  relative  benefits  derived  from  the  Brian's  Method  by 
applying  it  to  the  solution  of  an  application  problem  involving 
long-period  transient  behavior. 


H.  THEORY 

A      FUNDAMENTALS 

1.      Material  Properties 

The  capacity  for  energy  storage  and  rate  of  energy  transfer 
within  a  medium  are  functions  of  the  material's  thermophysical  prop- 
erties. Isotropic  materials,  such  as  metals  and  alloys,  are  uniform  in 
nature  and  their  properties  generally  demonstrate  only  negligible 
directional  and  temperature  dependence.  However,  layered  or  strati- 
fied materials,  such  as  glass-reinforced  plastic  (GRP)  or  laminates,  may 
demonstrate  strong  dependence  on  both  direction  and  temperature. 
While  directional  dependence  of  properties  is  generally  linear  in 
nature,  temperature  dependence  is  strongly  nonlinear  and  will  not  be 
addressed. 

a      Heat  Capacity 

The  rate  of  change  of  energy  storage  per  unit  volume 
within  a  solid,  isotropic  medium  is  determined  by  the  product  of  its 
density  (Kg/m3),  specific  heat  (KJ/KgK),  and  the  time-rate  of  change 
of  its  temperature: 

E',=  PCrW  (2-1) 

Both  density  and  specific  heat  may  be  temperature  and /or  direction- 
ally  dependent  properties. 


b.      Thermal  Conductivity 

The  thermal  conductivity  (W/mK)  is  a  transport  property 
(i.e.,  one  affecting  the  movement  of  energy)  of  the  material  and  is 
defined  in  the  x-coordinate  direction  as 


* —     f  3T  ^  (2.2) 


vtzef 

Isotropic  materials  generally  demonstrate  relatively  constant  thermal 
conductivity  over  broad  temperature  ranges,  whereas  metallic  lami- 
nates demonstrate  a  strong  directional  dependence  within  the  plane 
of  each  different  material.  Composite  materials  show  both  strong 
directional  and  temperature  dependence.  Temperature-dependent 
material  properties  will  not  be  addressed. 
c.      Thermal  Diffusivity 

The  thermal  diffusivity  (m2/s)  is  a  grouping  of  the  mate- 
rial density,  specific  heat,  and  thermal  conductivity  and  represents 
the  controlling  transport  property  for  transient  heat  conduction  [Ref. 
l:p.  41] 


a=^c~P  (2'3) 


d.      Convection  Heat  Transfer  Coefficient 

The  convection  heat  transfer  coefficient  (W/m2K) 
encompasses  all  of  the  effects  that  influence  the  convection  mode  and 
is  dependent  upon  boundary  conditions,  surface  geometry,  the  nature 


of  the  fluid  motion,  and  a  number  of  other  fluid  thermodynamic  and 
transport  properties  [Ref.  l:p.  8]. 

e.      Properties  Affecting  Radiation 

Various  surface  properties  affect  the  radiative  character- 
istics of  a  solid  material.  Directionally  integrated  or  hemispherical  val- 
ues are  often  adequate  although  these  properties  are  still  strongly 
dependent  upon  the  wavelength  of  the  radiant  energy.  Where  appro- 
priate, consideration  of  the  wavelength  dependence  will  be  indicated 
by  a  subscripted  Greek  letter  lamda  {X). 

(1)  Emissivity.  The  emissivity  (e)  is  a  surface  property 
representing  the  ratio  of  total  energy  emitted  by  an  actual  surface  and 
an  identical  black  surface  at  the  same  temperature.  The  emissivity  may 
be  altered  by  one  or  a  combination  of  mechanical  processes  (e.g., 
sandblasting  or  metal-spraying)  or  by  application  of  various  films  and/ 
or  coatings,  either  by  design  or  through  service  conditions. 

(2)  Surface  Properties.  Absorptivity  (a)  and  reflectivity 
(p)  are  surface  properties  representing  the  fractions  of  total  incident 
energy  which  are  respectively  absorbed  and  reflected  by  the  surface. 
For  opaque  surfaces,  the  sum  of  the  absorptivity  and  the  reflectivity 
equals  one 

a+  p=  1  (2.4) 

In  addition  to  absorption  and  reflection,  translucent  materials  allow  a 
fraction  of  incident  radiation  to  be  transmitted  through  the  material. 


Consequently,    an   additional   property,    transmissivity  (x),  must  be 
incorporated  into  Equation  2.4,  yielding 

a+  p+  t=  1  (2.5) 

(3)  Radiation  Heat  Transfer  Coefficient.  The  radiation 
heat  transfer  coefficient  (W/m2K4)  is  a  collection  of  terms  resulting 
from  the  linearization  of  the  radiation  heat  transfer  calculation  from  a 
gray,  diffuse  surface  in  extensive  surroundings  and  is  represented  as 

hr=  eo{Ts+Tsur){T]+  rL)  (2.6) 

where  o  is  the  Stefan-Boltzman  Constant  (5.67  x  10"8  W/m2K)  and  Ts 
and  Tsur  are  the  absolute  temperatures  of  the  surface  and  the  sur- 
roundings, respectively.  As  is  apparent  from  Equation  2.6,  this  term  is 
strongly  temperature  dependent  and  non-linear  in  nature. 
2.      Heat  Transfer  Rate 

The  heat  flux  (W/m2)  is  rate  of  heat  transfer  per  unit  surface 
area  and  may  be  represented  by 

?"=-f  (2.7) 

The  heat  transfer  rate  (W/m2s)  is  thus  the  product  of  the  heat  flux  and 
the  surface  area  normal  to  the  direction  of  heat  flow  [Ref.  l:p.  4]. 


3.      Rate  Equations 

The  three  principle  modes  of  heat  transfer  are  conduction, 
convection,  and  radiation.  The  rate  of  heat  transfer  attributed  to  each 
mode  is  described  by  the  appropriate  rate  equation. 

a      Conduction  Equation 

The  governing  equation  for  conduction  is  Fourier's  Law, 
given  for  the  x-direction  by 

«-.-*,-£  (2.8) 

b.  Convection  Equation 

The  relation  governing  convection  is  known  as  Newton's 
Law  of  Cooling  and  is  given  by  by 

q"c=  hc(Ts-Tsu,)  (2.9) 

where  Ts  is  the  surface  temperature  and  T^,  is  the  temperature  of  the 
surrounding  fluid. 

c.  Radiation  Equation 

The  maximum  flux  at  which  radiation  may  be  emitted  by 
a  surface  to  an  infinite,  black  surrounding  is  determined  by  the  Stefan- 
Boltzman  Law 

q'^KW.-TJ)  (2.10) 

where  Ts  is  the  surface  temperature  and  Tsur  is  the  temperature  of 
the  surrounding  enclosure  [Ref.   l:p.  9].  In  reality,  objects  exchange 


8 


energy  with  surrounding  enclosure  boundaries  in  accordance  with  the 
relation 

^X^A.Wr,    -Tw  )  (2.11) 

where  F  is  the  view  factor  representing  the  fraction  of  the  radiation 
emitted  by  the  surface  of  interest  that  is  intercepted  by  the  ith  surface 
of  the  confining  enclosure.  Implicit  in  Equation  2.11  is  the  assumption 
that  all  surfaces  of  the  surrounding  enclosures  are  black. 
4.      Heat  Balance — The  First  Law  of  Thermodynamics 

The  temperature  at  a  given  point  may  be  determined  from 
establishment  of  an  arbitrary  control  volume  around  the  point  (Fig- 
ure 1)  followed  by  application  of  the  first  law  of  thermodynamics  (the 
law  of  conservation  of  energy).  Excluding  heat  which  is  generated 
within  the  confines  of  the  control  volume  (internal  generation),  this 
law  may  be  simply  stated  as 

The  rate  at  which  thermal  and  mechanical  energy  enters  a  control 
volume  minus  the  rate  at  which  this  energy  leaves  the  control  vol- 
ume must  equal  the  rate  at  which  this  energy  is  stored  in  the 
control  volume.  [Ref.  l:p.  12] 

With  the  addition  of  any  heat  genetrated  internal  to  the  control  vol- 
ume, the  first  law  may  represented  in  the  form  of  the  heat  balance 
equation: 

E'  =  E\+E'-  E'  (2.12) 


gen  •-•  out 
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out 


Figure  1.  Control  Volume 


where 


Ea  =  Rate  of  energy  storage 

■p' 

^  «  =  Rate  of  energy  gain 

c-oux  =  Rate  of  energy  loss 

17" 
««»  =  Rate  of  energy  generation. 

R      FINITE  DIFFERENCE  APPROXIMATIONS 
1.      General  Approach 

The  numerical  solution  of  transient,  heat-conduction  prob- 
lems by  digital  computer  requires  the  transformation  of  the  heat  con- 
duction equation  into  a  form  which  allows  differentiation  to  be 
approximated  by  finite  differences  [Ref.  2:p.  472].  This  may  be  accom- 
plished by  dividing  the  problem  into  a  number  of  discrete  points,  or 
nodes,  each  surrounded  by  an  associated  control  volume  (Figure  2(A)). 
Conducting  an  energy  balance  on  each  control  volume  yields  a  system 
of  linear  algebraic  equations  which  describes  the  temperature  field.  In 
the   absence   of  round-off  error,   the  solutions   obtained   from  finite 
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difference  approximations  tend  to  the  analytic  solution  as  the  step  size 
and  grid  spacings  tend  to  zero  [Ref.  4:p.  449]. 


(A) 

Type  1 — End-layer,  inner-surface 
Type  2 — End-layer,  mid-radius 
Type  3 — End -layer,  outer-surface 
Type  4 — Mid-layer,  inner-surface 
Type  5 — Mid-layer,  mid-radius 
Type  6 — Mid-layer,  outer-surface 

Figure  2.  (A)  Reference  Grid;  (B)  Node  Types 
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a.  Geometry 

Figure  2(B)  depicts  a  right-circular  cylinder  to  which  has 
been  applied  a  polar-cylindrical  coordinate  system  and  an  arbitrary 
grid  which  divides  the  cylinder  into  a  number  of  nodes,  each  sur- 
rounded by  an  associated  control  volume.  Nodes  may  be  characterized 
as  belonging  to  one  of  six  types  and  are  located  at  the  grid  intersection 
points.  Each  node  may  be  associated  with  a  specified  layer,  ring,  and 
ray. 

(1)  Layers.  Layers  lie  parallel  to  the  x-y  plane  and  are 
numbered  sequentially  beginning  in  the  x-y  plane  and  proceeding  in 
the  direction  of  the  positive  z-axis.  Layers  are  spaced  a  distance  Az 
apart.  Note  that  the  end  layers  are  in  the  plane  containing  the  ends  of 
the  cylinders. 

(2)  Rings.  Each  layer  is  divided  into  an  arbitrary  number 
of  concentric  rings  spaced  a  distance  Ar  apart.  The  node  at  the  three 
o'clock  position  when  viewed  from  above  has  been  arbitrarily  desig- 
nated as  node  one.  Other  nodes  are  numbered  sequentially  in  a 
counter-clockwise  direction  from  node  one. 

(3)  Rays.  Rays  emanate  outward  from  the  origin  in  the 
plane  of  the  layers.  Nodes  lie  along  the  rays  at  intervals  of  Ar  and  are 
numbered  sequentially  from  the  inner  surface  outward. 

b.  Subscripting  Convention 

To  simplify  notation  in  the  development  of  equations,  the 
designation  of  nodal  grid  coordinates  will  follow  the  convention  con- 
tained in  Table  1. 
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TABLE  1 
NODAL  SUBSCRIPT  CONVENTION 

Subscript  Location  Grid  Coordinates* 

N  Northern  (upper)  neighbor  [r,<}),(z+l)] 

S  Southern  (lower)  neighbor  [r,({>,(z-l)] 

E  Eastern  (right)  neighbor  [r,(<j)-l),z] 

W  Western  (left)  neighbor  [r,(<))+l),z] 

I  Inner  neighbor  [(r-l),(J),z] 

O  Outer  neighbor  [(r+l),<J),z] 

e  Edge  (varies) 

*  All  grid  coordinates  are  relative  to  the  node  of  interest  when  viewed 
from  the  inside  of  the  cylinder. 

In  view  of  the  inverse  symmetric  relationship  existing 
between  equivalent  nodes  at  the  upper  and  lower  surfaces,  the  sub- 
script e  will  be  used  to  designate  temperatures,  fluxes,  and  properties 
associated  with  the  end  layers,  thus  reducing  the  number  of  required 
equations  by  half.  The  reader  must  substitute  the  appropriate  subscript 
(i.e.,  N  or  S)  depending  upon  the  location  or  application  of  the  equa- 
tion. This  issue  will  be  further  elaborated  upon  in  the  equation  devel- 
opment example. 

c.      Superscripting  Convention 

Superscripts,  as  contained  in  Table  2,  will  be  employed 
to  indicate  at  which  timestep  a  value  is  considered. 
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TABLE  2 
NODAL  SUPERSCRIPT  CONVENTION 


Superscript 

Timestep 

Time 

n 

Current 

t 

n+1 

Next 

t  +  At 

n+1/2 

Intermediate 

t  +  At/2 

d.     Example 

Consider  the  one-dimensional  heat  conduction  problem 
represented  in  Figure  3  wherein   TE=  Tw  ,  heat  is  being  conducted  in 

the  radial  direction  only,  and  the  control  volume  is  of  unit  thickness. 


Figure  3.  One -Dimensional  Heat  Conduction  Problem 


The  appropriate  heat  balance  equation  is 


^  st         ^7         ^o 


(2.13) 
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The  time-dependent  storage  term  (£,,)  may  be  represented  by  its 
finite  difference  approximation 

E's,=  pCpV- j= '-  (2.14) 

where  At  is  the  step  size,  T11  is  the  node  temperature  at  the  old  (n) 
timestep,  Tn+1  is  the  node  temperature  at  the  new  (n+1)  timestep, 
and  the  volume  is  approximated  as 

V= j-2-  (2.15) 

The  heat  rate  in  the  radial  direcrion  at  the  inner  bound- 
ary (  Ej )  of  the  control  volume  may  be  approximated  as 

/  rp    n  rr>    1+K 

E   =-  k  A        '  — (2.16) 

c/  K'Ai  At 


where 


A{  =  (r-Af)A(p  (2.17) 


is  the  area  of  the  control  volume  in  the  direction  of  heat  flow.  Simi- 
larly, the  heat  rate  at  the  outer  boundary  may  be  approximated  as 

(T"-T"+x) 
E0=-KA0-2-T-r (2.18) 


where 


A0=(r+4f)ArA(l>  (2.19) 
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Substituting  these  into  Equation  2.13  yields  the  finite 
difference  form  of  the  heat  equation 

pCprArA<p    (Tn+1-Tn)        kr{r --£-)&$ 

J—L- — _: —    l  >  = 2 (Tn    r«         2  20 

2  At  A  r  v   ' 


«  m   n 


+  Ar    '    V  (T„-T   ) 

The  steps  leading  up  to  and  including  the  formation  of  Equation  2.20 
are  common  to  both  the  explicit  and  Brian's  methods. 

Similar  equations  may  be  obtained  for  other  nodes  and 
boundary  conditions. 

2.      The  Explicit  Method 

The  explicit  method  is  a  direct  application  of  the  general 
approach  to  finite  difference  analysis  detailed  in  the  preceding  sec- 
tion. Equations  describing  the  temperature  at  the  new  time  level  are 
formed  for  each  node  by  conducting  a  heat  balance  on  the  associated 
control  volume.  Temperatures  at  the  new  time  level  may  then  be 
approximated  explicitly  by  substituting  temperatures  at  the  old  time 
level  into  the  appropriate  node  equation.  The  explicit  form  of  the  one- 
dimensional  heat  conduction  problem  of  the  preceding  section  may  be 
obtained  from  Equation  2.20  by  dividing  by  the  lead  coefficient  on  the 
left-hand  side,  substituting  for  the  grid  Fourier  number,  and  solving 
for  the  new  temperature,  yielding 


7n+1  =  Tn  +  Fo 


(r-— )  (r  +  -z-) 

(17-  n+ — -±-(t;-t") 


A  r  '  A  r 
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(2.21) 


where 


Fo=-f?T  (2.22) 


Defining  the  constants 


t         A  r , 
(r-— ) 

c,= aT (2'23) 


and 


(>*  +  -5-) 
^2=        Ar  (2.24) 


and  grouping  the  T°  terms  outside  of  the  the  parentheses  yields 

r+1  =  fo{cxt;  +  c2t;)  +  [1  -  f^  +  c2)]rn  (2.25) 

from  which  the  stability  criterion  on  the  timestep  may  be  determined 
from  the  relation 

[l-Fo(Cl+  c2)]>0  (2.26) 

[Ref.  l:p.  215] 

3.      Brian's  Method 

In  Brian's  Method,  the  node  types  are  the  same  as  depicted 
in  Figure  2.  However,  the  temperature  at  the  new  time  level  is  formed 
from  a  combination  of  values  taken  from  the  old  time  level  and  three 
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directionally  dependent  temperature  arrays  formed  at  an  intermediate 
time 

t'=t+^±  (2.27) 

Although  each  of  these  arrays  requires  a  full  complement  of  supporting 
node  equations,  the  equations  are  quite  similar  and  enjoy  a  common 
derivation  with  the  explicit  method  for  the  initial  stages  of  their 
development. 

Each  intermediate  array  is  associated  with  one  arbitrarily 
assigned  coordinate  direction  and  has  its  temperatures  denoted  by  the 
superscripting  of  one,  two,  or  three  asterisks.  Calculation  precedence 
must  follow  the  order  of  star  level,  two-star  level,  three-star  level,  and 
new  temperature  arrays! 

Within  each  intermediate  calculation  process,  temperatures 
are  determined  by  solution  of  a  tridiagonal  matrix  of  coefficients  of 
nodes  lying  along  the  specified  coordinate  axis.  For  example,  equations 
for  the  r-direction  nodes  at  the  star  level  in  a  one-dimensional  heat 
conduction  problem  are  of  the  form 

ATj  +  BT'+  CT"0=  D(Tn)  (2.23) 

Although  Brian's  method  is  conceptually  no  more  difficult 
than  the  explicit  method,  it  involves  considerably  more  algebra  and  is 
best  illustrated  in  the  form  of  the  code  development  model  contained 
in  the  following  chapter. 
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ni.  DERIVATION  OF  EQUATIONS 

A      MODEL  FOR  CODE  DEVELOPMENT 

1.  General 

In  this  chapter,  detailed  descriptions  of  the  explicit  and 
Brian's  methods  will  be  presented  in  the  form  of  the  model  employed 
for  the  development  of  code. 

2.  Problem  Description 

Selection  of  a  model  with  simplicity  and  symmetry  of  geome- 
try and  boundary  conditions  was  made  to  facilitate  error  checking  and 
the  comparison  of  results  during  code  development.  The  preliminary 
model  consisted  of  a  right- circular  cylinder  of  uniform  properties  with 
adiabatic  ends  and  specified  initial  temperature  distribution  (initial 
condition)  and  constant  inner-surface  temperature  of  zero  degrees 
Celsius.  An  arbitrary  grid  consisting  of  five  layers  in  the  z-direction, 
each  with  three  and  four  nodes  respectively  in  the  radial  and  phi- 
directions,  was  applied  to  the  cylinder  in  a  fashion  similar  to  that 
depicted  in  Figure  4.  At  time  t  =  0,  a  uniform,  constant  heat  flux  was 
applied  to  the  outer  surface.  Subsequent  modifications  to  the  model 
added  radiative  and  convective  boundary  conditions  at  all  surfaces  as 
well  as  directionally-dependent  thermal  conductivities.  Temperatures 
are  in  terms  of  the  rise  above  the  initial  temperature  [excess 
temperature)  [Ref.  l:p.  100]. 
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Specified  Temperature 


Adiabatic  End 


Adiabatic  End 


Figure  4.  Model  for  Code  Development 

R      EXPLICIT  METHOD  EQUATIONS 

The  process  for  development  of  equations  using  the  explicit 
method  is  similar  for  all  node  types.  For  illustrative  purposes,  we  will 
consider  a  Type  1  node  located  at  the  inner  edge  of  the  bottom  sur- 
face of  the  cylinder  as  depicted  in  Figure  5.  Complete  equations  for  all 
node  types  are  included  as  Appendix  A  to  this  report.  Directionally 
dependent  thermal  conductivities  and  radiative  and  convective  bound- 
ary conditions  are  included  in  this  development.  Heat  flow  into  and 
out  of  the  associated  control  volume  is  represented  in  Figure  6. 
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(r  +  A  r),0,  z 


r,(0  +  A0 ),  z 


r,(0  -A0),z 


A.  Plan  View 


r,0,(z  +  Az  ) 


r,(0  +A0),  z  r,0,  z  r,(0  -A0),z 

B.  Frontal  View 
Figure  5.  Bottom  Layer,  Inner  Surface  Node  Configuration 
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E< 


Figure  6.  Heat  Balance 


The  heat  balance  equation  is 


£  a  -  E]      EN      Es      ^e      Ew  -  E0 


(3.1) 


Application  of  appropriate  finite  difference  approximations  results  in 


"      it.  «\ 


"  rr<   "  /■»  m    "  > 


(T"'-T")  (T"-T~)  (T:+T"  -2T") 

pc>v     a,     -*.*.-**-*■+*.*.-*—% —  (3-2) 


n  _,  n  . 


(t:-t) 


where 


V  = 


(r+  ^-)ArA0Az 


(3.3) 
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A    = 


(r+4r)A#Az 


o- 9 (3.4) 


A        A  rAz 

A,=  ^T~  (3.5) 


(r+^)ArA0 
A<  = 2 (3.6) 


We  note  in  Equation  3.2  that  the  conduction  terms  are  evaluated 
at  time  level  n  in  order  to  allow  explicit  solution  of  the  temperatures. 
Evaluation  of  Ee  and  E}  reveals  that  these  terms  are  comprised  of  the 
sum  of  the  incident  surface  heat  flux  and  the  terms  associated  with 
heat  loss  (or  gain)  by  convection  and  radiation.  The  convection  term  is 
linear  and  may  be  approximated  as 

q"c=  hc(T"+l  -  rj  (3,7) 

where  hc  is  the  convection  coefficient  at  the  appropriate  surface  and 
Too  is  the  temperature  of  the  surrounding  fluid.  The  radiation  term  is 
non-linear  and  cannot  be  directly  applied  as  a  function  of  Tn+ 1 .  A  lin- 
earization of  the  radiation  equation  may  be  accomplished  by  defining 
the  radiation  coefficient  at  the  previous  (n)  timestep 

hr  =  e  a{Tn  +  Tsur)[(Tn)2  +  T2J\  (3<8) 

where 

q"r=  hr(Tn+l  -  T^)  (3.9) 
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which  reduces  the  approximation  of  the  radiation  term  to  the  first 
power  of  Tn+1  and  Tsur  is  the  temperature  of  the  surrounding  envi- 
ronment to  which  it  radiates.  Thus,  the  boundary  conditions  may  be 
represented  as 


e's  =  At[q"s  -  Ks  {Tn+X  -  rj  -  Ks  (Tn+l  -  rw))] 


(3.10) 


and 


E^A^q'^-KiT^-  TJ-  hr  (Tn+X  -  T  j]  (3  n) 


where 


rA(p  A  z 


A-  = 2 (3.12) 


Substituting  for  Es  and  Ef  into  Equation  3.2  yields 


«  m  *■.  ,  m  «  m  "  Am», 


(r    -r")            (r;-n           (r;  +  r;  -  27-) 
Pc*y — s =  *■*,      az      +  *,4* ^ (313> 


,  n  _  «. 


(r:-r) 

+  *r  A0 ^ +  A2[q"s  +  hc  s(T„  -  T"+1)+  h,s(Tsur  -  T"+1)] 

+  A,[q",+  he{Tm-  Tn+l)+  hr{T„,-  r"+I)] 
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Substituting  for  the  volume  and  area  terms  yields 

(r  +  ~^)ArA(p  Az  (r»+1  _  r«S       kt(r  +  -^)ArA(p  (Tn  _  7") 

p  C  ? —  = — (3.14) 

F     p  4  At  2  Az 

Ic.ArAz  (TnE+THw-2Tn)      *rir  +  ^)M>  Az  (r;  -  7") 
"I"  ~  rA0  +"  2  Ar 

Ar.  .     .  , 
(r  +  —7-)ArA<t> 

+ ^ [</%  +  *,  Cr.-!""1)**,  O^-^1)] 

Ass 

By  defining  the  directional  thermal  diffusivity 

K 

az       PCP  (3.15) 

and  grid  Fourier  number 

r       aAt 
Fo  = 


Az2  (3.16) 

we  may  simplify  by  arbitrarily  dividing  by  the  lead  coefficient  of  the  z- 
direction  difference  approximation  to  obtain 
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-i-(rtl-r")=(r;-r")  + *-L — -(r-+r;-2r") 


,  n  _,  «, 


+ A — <r;-n 

kz(r  +  ^f)Ar2 


*2         °  s  s 


A        2 

+ r-^r- W,  +  hc  (T„-T"+l)+hr(Tsur  -r"+1)] 

k2(r  +  -^)Ar  '  ' 


Further  simplification  may  be  realized  by  defining  the  constants 

kAz2 
c,  = 


2kzr(r+±f)A<p2  (3-18) 


kr(r  +  Af)Az2 
c  = 


k2(r+AJL)Ar2  (3.19) 


c2  =  ^~  (3.19) 

Km 


r  A  z 


k,(r+±f)Ar  (3-20> 
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Substituting  into  Equation  3.16  and  rearranging  to  yield 

■^(t"'  -  t  •>  =  (t;  -  r")  +  q  (r;  +  r;  -  2t")  +  c2a;  -  t")  (3  21) 

+  cjq"s-  k  (r„-  T"1)-  hr  (T„-r"')] 
+  c4[<7",-  ac  (7„-T"+1)-/2r  (rw-rn+1)] 

Expansion  and  regrouping  of  terms  yields  the  final  form  of  the 
node  equation  for  the  temperature  at  the  (n+1)  timestep 


7n+1  =  -f  {T  '  +  2rt>  [(7;  -Tn)+  Cl(TnE  +  T;-2Tn)+  c2(T;  -  T")    (3.22) 

J         a  s  s 

+  c^q",  +  hcT„+  hrT^ 

where 

c5=  l+2Fo[c3(/ic    +  hr  )  +  c4(hC{  +  hr   )^  (3.23) 

Thus,  the  temperature  for  each  node  at  the  successive  time  step 
may  be  solved  for  explicitly  in  terms  of  node  temperatures  at  the  pre- 
vious timestep. 

C      BRIANS  METHOD 

1.      Step  One  (z-Direction) 

This   section  addresses   procedures  governing  the   develop- 
ment of  equations  associated  with  the  first  intermediate,  or  star-level 
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temperature  array  to  which  the  z-coordinate  direction  has  been  arbi- 
trarily assigned.  Equation  3.21  may  be  applied  to  step  one  by  substi- 
tuting asterisk-superscripted  variables  for  all  n+1  superscripted 
variables  and  those  n-superscripted  variables  which  lie  along  the  z- 
coordinate  direction.  Because  the  intermediate  time  step  is  half  the 
overall  value,  the  effective  grid  Fourier  Number  is  half  that  employed 
in  the  explicit  method.  Thus,  for  step  one  of  Brian's  Method,  Equation 
3.21  becomes 


-j-y - Tn)  =  a-; -  n  +  ^t;  +  t;-2th)+  c2(Tn0 -rn)  (3.24) 

+  c,[q"s-  h     (T'-TJ-h r(r-TsJ] 

+  c4[q"J-  hc  {r-Tj-hT  cr-  rj] 


7  / 


Expanding  and  grouping  like  terms  of  starred  quantities  on  the  left- 
hand  side  of  the  equation  yields 

AT*S+  BT  +  CVN  =  D  (3.25) 

where 

A=0  (3.26) 

B=  1+  Fo[l+  c3(hCs+  h,s)+  c4(hC/+  hr)-j  (3  27) 

C  =  -Fo  (3.28) 
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D=  Tn  +  Fo[c:(TnE+  Tnw-2Tn)+  c2(TnQ-  T")  (3.29) 


+  c3u"5  +  hc  r„+  hr  Tsur) 

3  J  S  S 


+  c4(q",  +  hcT„+  hrT^)] 

This  process  is  repeated  until  similar  equations  are  derived  for  each 
node  type. 

2.      Step  Two  ((^-Direction) 

Derivation  of  step  two  equations  is  an  extension  of  the  proce- 
dures employed  in  the  preceding  section  with  the  phi-axis  now  arbi- 
trarily designated  the  two-star  coordinate  direction.  In  this  step, 
beginning  with  Equation  3.24,  which  already  contains  the  initial  step 
one  substitutions,  we  add  further  modifications  by  substituting  two- 
star  subscripted  variables  in  the  same  manner  as  before.  This  yields 

-jr(T"  -Tn)  =  (T*N-T')+  Cl(T'E'  +  T?  -  2T  ")  +  c2(T^  -  T")    (3.30) 

+  c3[<7"5  -  hc  {V* -  tj  -  hr  scr* -  rj] 

+  c4[^-  hc{r*-TJ-hr{T*-  TJfj 

Again,  expanding  and  grouping  like  terms  of  two-starred  quantities  on 
the  left-hand  side  of  the  equation  yields 

ATE*+  BT"  +  CT'W*  =  D  (3.31) 
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where 


B  = 


A=-c,Fo  (331) 

1+  Fo[2cx  +  c2(hc  s  +  A     )  +  c2(hCi  +  hr  ^)J  (3.32) 

C  =  -cxFo  (3.33) 

D=  Tn  +  Fo[(T*N-T*)+  c2{TnQ-  T")  (3.34) 

+  cz[q"s+  hc    T„+  hr    Tsur] 

+  c4(<7",  +  hcT„+  hrTJ)] 

This  process  is  again  repeated  until  similar  equations  are  derived  for 
each  node  type. 

a      Step  Three  (r-Direction) 

Derivation  of  step  three  equations  is  an  identical  extension  of 
the  procedures  employed  in  the  preceding  section,  with  the  r-axis 
now  arbitrarily  designated  the  three-star  coordinate  direction.  In  this 
step,  we  begin  with  Equation  3.30  and  further  modify  by  substituting 
three-star  subscripted  variables.  This  yields 
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J-(r--  r")  =  (r;  -  r*)  +  q(r;*  +  r;*-2r")  +  c2(r"*-  r—)  (3.35) 
+  c3 [<?",-  fcc  (r**-  rj-  a,  a""-  rw)] 
+  c4[^-  fc^(r**-rj-*r#(r--  rj] 

Again,  expanding  and  grouping  like  terms  of  two-starred  quantities  on 
the  left-hand  side  of  the  equation  yields 

AT"*  +  BTm"  +  Cr;~  =  D  (3.36) 

where 

A=0  (3.37) 

B=  1+  Fo[c2+  c3(/ie    +  Ars)+  c4(/2c    +  Ar  )]  (3.38) 


C  =  -c2Fo  (3.39) 


z)=  r"  +  fo[(t;  -  T*)  +  cl(Tt;+  r;~iT")  0.40) 

+  c3  ( <?"5  +  /zc  r„  +  hr  Tsur) 

5         *  s  s 

+  c4(<7"7+  /zC/T„+  /z^7\J] 


This  process  is  repeated  until  similar  equations  are  derived  for  each 
node  type. 
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4.      Step  Four  (New  Temperatures) 

Step  four  is  a  direct  extension  of  the  procedures  employed  in 
the  explicit  method.  In  this  step,  the  n+1  timestep  equations  are 
derived  from  the  explicit  equations  by  substituting  starred  values  for 
the  associated  node  temperatures  for  node  under  consideration.  Con- 
tinuing with  our  example,  we  substitute  into  Equation  3.22  to  obtain 

TH+l  =  -±-{TH  +  2Fo[(T*N-  r*)+  c,(r;*+  r;*-2T")+  c2(7"*-  7*")  (3.41) 

+  c2{q"s  +  he   T„+  hr   Tsur) 
s  s 

+  cA{q"t  -  hc  7„-  hr  7^)1 

where 

c5=l  +  2Fo[c3(hc    +  hr    )+c4(hc    +  hr   )]  (3.42) 

S  S  I  I 

Step  four  equations  for  each  of  the  six  types  of  nodes  are 
derived  in  an  identical  fashion. 

Complete  node  equations  in  the  polar-cylindrical  form  of 
Brian's  method  are  included  in  Appendix  B  for  each  of  the  six  node 
types  identified  in  Figure  2. 
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IV.  CODE  DEVELOPMENT 

A   ANALYTIC  SOLUTION 

Analytic  solutions  to  the  model  described  in  Chapter  III,  para- 
graph A.2,  were  obtained  for  the  range  of  zero  to  300  seconds  in  five- 
second  increments.  The  calculations  of  eigenvalues  and  the  resulting 
solutions  were  made  using  MATHCAD  V2.0  on  an  INTEL  80386 -based 
personal  computer.  The  calculated  eigenvalues  were  verified  with  tab- 
ular results  [Ref.  5]  and  those  obtained  by  an  appropriate  IMSL 
subroutine  [Refs.  6-10].  Equations  describing  the  complete  solution 
are  contained  in  Appendix  C. 

R      EXPLICIT  METHOD 

1.  Requirements 

The  coding  of  the  explicit  method  is  relatively  straightfor- 
ward and  subject  to  only  two  notable  requirements: 

•  That   the   selected   timestep   must   not   exceed   the   theoretical 
maximum,  and 

•  That  each  node  be  considered  for  temperature  calculation  once 
per  timestep. 

2.  General  Procedure 

a      Timestep  Restriction 

The  maximum  allowable  timestep  varies  with  control 
volume  dimensions.  Exceeding  the  allowable  timestep  for  any  one 
node  will  result  in  the  eventual  loss  of  stability  of  the  entire  system. 
The  rapidity  with  which  this  occurs  is  a  function  of  the  affected  node's 
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significance  in  the  path  of  the  dominating  heat  flux.  Consequently,  a 
maximum  timestep  must  be  determined  for  each  node  type  (Figure  2) 
and  the  most  restrictive  taken  as  the  limiting  value.  This  was  effected 
through  use  of  the  subroutine  STABIL,  which  calculated  maximum 
allowable  timestep  for  each  node-type  and  returned  the  most  restric- 
tive as  the  argument  DTMAX.  A  listing  of  equations  defining  stability 
requirements  for  each  node  type  is  contained  as  Appendix  D. 
b.      Indexing 

The  method  by  which  incrementation  through  the  grid 
system  is  implemented  is  entirely  arbitrary  as  long  as  the  temperature 
is  calculated  once  per  timestep  for  each  node  on  the  grid.  In  systems 
with  a  dominant  heat  flux,  convergence  will  occur  more  quickly  if  the 
dominant  direction  is  incremented  first.  Appendix  E  contains  the 
explicit  method  code  as  developed  for  this  study.  A  polar-cylindrical 
coordinate  system  was  arbitrarily  applied  with  the  z-axis  aligned  with 
the  central  axis  of  the  cylinder.  Indexing  commenced  at  the  inner 
edge  of  the  bottom  surface  and  proceeded  up  the  z-coordinate  to  the 
upper  surface.  The  grid  was  then  indexed  in  <f),  followed  by  r,  until  the 
entire  grid  had  been  covered,  at  which  time  the  old  temperature 
matrix  was  replaced  by  the  new  temperature  matrix,  the  time  counter 
indexed  by  At,  and  the  process  repeated  until  the  end  of  the  desired 
period  of  evaluation  was  reached. 
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C      BRIAN'S  METHOD 

1.      Requirements 

a      Times  tep 

The  timestep  may  be  selected  as  befits  the  duration  of 
the  analysis  and  the  expected  temperature  gradients.  However,  the 
discretization  error  is  a  function  of  the  square  of  the  timestep.  On  the 
other  hand,  the  property  of  unconditional  stability  allows  the  flexibility 
to  initially  choose  a  large  timestep  for  macro-analysis  followed  by 
application  of  a  smaller  timestep  for  a  detailed  look  at  regions  of 
interest  (e.g.,  an  area  where  a  predefined  threshold  is  exceeded). 
b.      Indexing 

A  separate  temperature  matrix  must  be  developed  for 
each  coordinate  direction  at  the  level  of  the  intermediate  timestep. 
Due  to  this  directional  nature,  the  indexing  requirements  are  more 
complex  and  restrictive.  Once  assignment  of  a  coordinate  axis  to  an 
intermediate  matrix  (e.g.,  star-level)  has  been  made,  the  convention 
must  be  adhered  to  for  the  duration  of  the  timestep.  One  acceptable 
method  for  indexing  is  outlined  below  and  the  companion  code  is 
included  as  the  STEP(#)  subroutines  to  the  Brian's  Method  code  con- 
tained in  Appendix  F. 

(1)  Star  Level  (z-Cirection).  The  z-coordinate  direction 
was  arbitrarily  assigned  to  the  star-level  intermediate  matrix. 
Consequently,  equations  were  developed  for  nodes  lying  along  the  z- 
axis  in  the  fashion  described  in  Section  C  of  Chapter  III.  Appropriate 
indexing  was  accomplished  by  designating  an  arbitrary  node  on  the 
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inner  ring  of  the  bottom  surface  of  the  cylinder  (Figure  7)  as  a  node  of 
reference  (node  1).  An  equation  similar  to  Equation  3.25  was  devel- 
oped for  this  first  node  and  the  values  of  the  A,  B,  C,  and  D  coefficients 
calculated  and  stored  in  four  associated  vectors.  The  pointer  was  then 
indexed  in  the  z-direction  to  select  the  node  immediately  above 
node  1  (i.e.,  the  northern  neighbor  when  developing  the  equation  for 
node  1).  The  process  was  repeated  for  the  second  node  and  all  other 
nodes  lying  on  the  selected  z-axis 


Figure  7.  Star-Level  Indexing  Direction 

When  the  values  of  the  coefficients  for  the  last  node  had  been  calcu- 
lated and  stored  in  the  appropriate  vectors,  a  tridiagonal  matrix  solver 
was  called  to  simultaneously  solve  the  system  of  equations.  The  resul- 
tant node  temperatures  were  then  saved  in  the  star-level  intermediate 
matrix  and   the. pointer  indexed   to  the  next  adjacent  node   in  the 
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counter-clockwise  (^-direction.  Note  that  at  this  point,  indexing  in 
either  the  radial  or  the  ^-direction  would  have  been  equally  appropri- 
ate. However,  once  chosen,  the  specified  direction  must  be  adhered  to 
throughout  the  immediate  timestep. 

(2)  Two-Star  Level  (<j)-Direction).  Because  the  rings  asso- 
ciated with  the  ^-direction  have  neither  a  beginning  nor  an  end,  one 
node  must  be  arbitrarily  defined  as  a  reference  node.  Using  node  1 
from  the  one-star  level  and  working  in  a  counter-clockwise  direction 
(Figure  8),  the  values  of  the  coefficients  for  each  node  along  the  cho- 
sen ring  were  calculated  and  temporarily  stored  in  suitable  vectors. 
The  resultant  system  of  equations  for  nodes  in  the  ^-direction  was  of 
the  form 


Figure  8.  Two-Star  Level  Indexing 
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which  is  not  tridiagonal  To  achieve  tridiagonality,  the  ring  was  cut  at 
the  reference  node.  The  resulting  coefficient  matrix  was  then  of  the 
form 
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Node  temperatures  were  then  obtained  by  applying  a  suitable  tridiago- 
nal matrix  solver  [Ref.  4:p.  441]  and  stored  in  the  two-star  intermedi- 
ate level  matrix.  The  pointer  was  then  incremented  to  the  node 
adjacent  to  node  1  in  the  r-direction  and  the  process  repeated.  Upon 
completion  of  the  first  layer  calculations,  the  pointer  was  indexed  in 
the  positive  z-direction  and  the  process  repeated  until  all  two-star 
level  temperatures  have  been  calculated. 

(3)  Three-Star  Level  (r-Direction).  Construction  of  the 
three-star  temperature  matrix  was  accomplished  in  a  fashion  similar 
to  the  one-  and  two-star  level  procedures  (Figure  9).  Beginning  at  the 
reference  node,  the  values  of  the  node  coefficients  were  calculated 
and  temporarily  stored  in  suitable  vectors.  When  the  coefficients  for 
the  last  node  on  the  selected  ray  had  been  caluclated  and  stored,  the 
tridiagonal  matrix  solver  was  applied  to  the  system  of  equations,  the 
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resultant  node  temperatures  written  to  the  three-star  temperature 
array,  the  pointer  indexed  to  the  next  adjacent  ray  in  the  counter- 
clockwise direction,  and  the  process  repeated  until  all  node  tempera- 
tures were  calculated  for  the  layer.  The  pointer  was  then  indexed  in 
the  positive  z-direction  until  all  three-star  level  temperatures  had 
been  calculated. 


^Y 


Figure  9.  Three-Star  Indexing 

(4)  New  Temperature  Array  (n+1  Level).  When  all  inter- 
mediate matrices  had  been  developed,  new  node  temperatures  were 
calculated  in  terms  of  the  three  intermediate  temperature  arrays  and 
the  array  of  temperatures  at  the  previous  (old)  timestep  in  accordance 
with  the  discussion  in  paragraph  4  of  Chapter  III.  The  choice  of 
indexing  direction  at  this  point  was  arbitrary,  so  the  method  applied 
to  the  star  level  was  repeated.  It  must  be  noted  that  the  new  node 
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temperatures  must  be  stored  in  a  separate  (new-temperature)  array 
until  all  node  temperatures  have  been  calculated.  Upon  completion  of 
the  calculations,  the  new  temperature  array  was  printed  or  stored 
(when  appropriate),  copied  onto  the  old  temperature  array,  the  time 
counter  indexed,  and  the  entire  process  repeated  until  the  limit  of  the 
period  of  evaluation  was  reached. 

D.      EXECUTION  TIMEKEEPING 

The  codes  for  both  the  explicit  method  and  Brian's  Method  were 
of  common  origin,  had  nearly  identical  main  codes,  and  shared  com- 
mon input/ output  and  utility  subroutines.  The  codes  were  organized 
such  that  the  calculations  unique  to  the  specific  method  employed 
were  segregated  into  a  single,  cohesive  block  in  the  form  of  one  or 
more  subroutines.  A  timing  utility  which  allowed  placement  within  the 
code  of  pointers  to  initiate  and  stop  CPU  timekeeping  was  employed 
to  measure  the  execution  times  of  each  method  for  each  example  or 
application  tested.  Among  other  places,  pointers  were  placed  at  the 
entry  to  and  the  exit  from  the  respective  method -specific  subroutine 
blocks.  Benchmark  runs  exclusive  of  I/O  calls  were  conducted  for  each 
method  during  the  validation  process.  Subsequent  runs  involving 
printed  or  stored  output  were  structured  such  that  required  I/O  han- 
dling instructions  were  common  to  each  code  to  allow  accurate  com- 
parison of  relative  speeds. 
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V.  VALIDATION 

A      INITIAL  CODE 

1.  General  Procedure 

To  simplify  code  development,  initial  forms  of  the  codes  for 
both  the  explicit  method  and  Brian's  Method  were  developed  without 
including  convection  or  radiation.  Validation  for  both  methods  was 
accomplished  by  solving  for  the  temperature  distribution  within  the 
cylinder  described  in  paragraph  A.2  of  Chapter  III,  comparing  results 
with  the  analytic  solution  and  calculating  the  percentage  error.  Upon 
achievement  of  satisfactory  results,  the  initial  codes  were  expanded  to 
encompass  the  effects  of  both  convection  and  radiation.  Validation  of 
the  core  of  this  revised  code  was  accomplished  by  setting  appropriate 
connective  and  radiative  coefficients  to  zero  and  repeating  the  initial 
validation  procedure  with  the  revised  code. 

2.  Time  Incrementation 

Initial  runs  were  conducted  using  a  fixed  time  step  of  0. 1 
second.  Following  initial  data  collection,  additional  runs  were  con- 
ducted to  determine  operating  limits  for  both  methods.  During  this 
phase,  Brian's  method  was  tested  and  validated  using  constant  time 
increments  in  the  range  from  0.01  to  100  seconds  and  included  a  log- 
arithmically increasing  time  step  arrangement  summarized  in  Table  3. 


41 


TABLE  3 
VARIABLE  TIME  STEP  EMPLOYMENT 

RANGE  (SEC)  TIME  STEP  (SEC) 

0.1-1.0  0.1 

1.0-10.0  1.0 

10.0-100  10.0 

100-300  100.0 

Additional  runs  were  conducted  using  a  varying  time  step  in  which  the 
final  step  size  was  limited  to  20  seconds. 

a      APPLICATION  CODE 

No  analytic  solution  was  available  for  a  cylinder  with  convective 
and  radiative  boundary  conditions.  Consequently,  the  application  codes 
may  not  be  considered  fully  validated.  A  comparison  of  results  was 
obtained  by  solving  the  application  example  with  both  methods  and 
comparing  the  results  point-for-point  against  each  other  in  the  form  of 
a  percentage  disagreement.  All  combinations  of  heat  flux  and  boundary 
conditions  considered  are  summarized  in  Table  4. 
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TABLE  4 
SUMMARY  OF  APPLIED  BOUNDARY  CONDITIONS 


Boundary 
Class 

I 

II 

III 

IV 

V 

VI 

VII 

VIII 

IX 

X 

XI 

XII 

XIII 

XIV 

XV 

XVI 


Inner 

9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


Outer 

R 

R9 
R9 
R9 
R9 
R.9.H 

R9 

KQ 

R9 

R.9.V1 

R9 

R9 

R9 

R,9,V1 

R9 
R.Q 


Upper 

R 
R 

R9 
R 

R,9 

R 
R,H 

R 
R,H 

R 
R.V2 

R 
R,V2 
R,V2 
R,V2 
R,V3 


Lower 

R 

R 

R 

R9 

R.9 
R 

R 
R,H 
R,H 

R 

R 
R.V3 
R.V3 
R,V3 
R.V2 
R,V3 


Where: 
9 

R 

H 

VI* 

V2* 

V3* 


Constant,  uniform  surface  heat  flux 
Radiation  to  extensive,  black  surroundings 
Convection  from  surface 
Periodic,  uniform  surface  heat  flux  1 
Periodic,  uniform  surface  heat  flux  2 
Periodic,  uniform  surface  heat  flux  3 


*  As  described  in  Appendix  G. 
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VI.  RESULTS 

A      DEFINITIONS 

1.  Convergence 

On  validation  runs,  calculated  values  were  considered  to  have 
converged  when  the  net  remaining  change  in  the  value  comprized  less 
than  one  percent  of  the  analytic  solution  for  the  given  time  step.  For 
comparison  runs,  values  were  considered  to  have  converged  when 
their  difference  comprised  less  than  one  percent  of  the  value  of  the 
smaller  of  the  two  numbers. 

2.  Steady-State 

A  condition  of  steady-state  was  considered  to  have  been 
reached  when  the  net  remaining  change  in  a  temperature  comprized 
less  than  one  percent  of  the  final  steady-state  result  for  single  tran- 
sient evaluation. 

R      VALIDATION 

1.  Analytic  Solution 

The  analytic  solution  converged  to  steady-state  at  300  sec- 
onds. Consequently,  all  validation  runs  were  limited  to  300  seconds 
duration  to  economize  on  analysis  time. 

2.  Explicit  Method 

The  theoretical  limit  on  the  maximum  time  step  allowed  for 
the  geometry  selected  was  approximately  0.395  seconds,  which  did 
not  lend  itself  to  convenient  comparisons  with  the  analytic  results. 


44 


The  explicit  method  was  validated  using  a  numerically  convenient 
time  step  of  0.1000  second  and  converged  with  the  analytic  result 
within  four  seconds  of  the  start  of  the  transient  cycle  (Figure  10). 
Total  execution  time  was  40.37  seconds  for  a  ten  (radial)  by  four  (<j>)  by 
five  (z)  grid.  The  observed  error  at  the  end  of  the  300-second  evalua- 
tion period  was  on  the  order  of  0.009  percent.  For  processing  speed 
comparison  runs,  the  maximum  theoretical  timestep  was  employed 
and  demonstrated  a  minimum  execution  time  of  10.53  CPU  seconds. 
Due  to  the  odd  step  size,  no  comparison  of  relative  accuracy  was  made. 
3.      Brian's  Method 

Brian's  method  was  initially  limited  to  a  fixed  timestep  of  0. 1 
second  for  the  validation  process  to  allow  a  relative  speed  comparison 
with  the  explicit  method.  While  convergence  times  and  observed 
errors  were  comparable  (Figures  10,  11,  and  12),  the  explicit  method 
demonstrated  a  significant  speed  advantage  over  Brian's  Method  for 
equivalent  timesteps  (Table  5).  This  situation  was  dramatically 
reversed  when  the  logarithmically  increasing  timestep  arrangement 
(Table  3)  was  employed  and  resulted  in  an  execution  speed  of  2.53 
CPU  seconds,  which  comprised  a  410  percent  advantage  over  the 
optimum  result  of  the  explicit  method  (Table  6). 

C      FOLLOW-ON  TESTING 

Upon  conclusion  of  the  validation  runs  and  speed  comparisons,  a 
variety  of  boundary  conditions  with  easily  predictable  effects  were 
applied  to  allow  observation  of  system  response  (Table  4).  The  follow- 
ing general  observations  were  made. 
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Figure  10.  Percentage  Error  of  Explicit  Code  as  Compared 
to  Analytic  Results  and  Plotted  Versus  Time 
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Figure  11.  Percentage  Error  of  Brian's  Code  as  Compared 
to  Analytic  Results  and  Plotted  Versus  Time 
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Figure  12.  Comparison  of  Brian  vs.  Explicit  Validation  Results 
Expressed  as  a  Percentage  Difference 

TABLE  5 
VALIDATION  RESULTS— FDXED  0.1  SEC.  TIMESTEP 


10x4x5  GRID 
300  SEC  TRANSIENT 


RESULT 

EXPLICIT 

BRIANS 

STEP  SIZE 

0. 1  SEC 

0. 1  SEC 

CPU  TIME 

40.37  SEC 

223.24  SEC 

ERROR  AFTER 

0.1% 

15.188% 

20.308% 

1% 

1.247% 

1.668% 

2% 

0.612% 

0.814% 

10% 

0.110% 

0.183% 

100% 

0.009% 

0.009% 

CONVERGENCE 

3-4  SEC 

4-5  SEC 

(<1  %  ERROR) 

SPEED  ADVANTAGE:    EXPLICIT  (553  %) 
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TABLE  6 
VALIDATION  RESULTS— LOG-VARIABLE  TIMESTEP 


BRIAN'S  METHOD 
VARIABLE  STEP  SIZE 


TIME  (SEC) 

STEP  SIZE  (SEC) 

0.1-1.0 

0.1 

1.0-10 

1.0 

10-100 

10 

100-300 

20 

%  TRANSIENT 

%  ERROR 

% 

IMPROVEMENT* 

0.1 

20.308 

0.00 

1.0 

1.446 

13.3 

10. 

-0.057 

68.8 

100. 

0.01 

-22.2 

CPU  TIME:  2.53  SEC 

SPEED  ADVANTAGE  : 

BRIAN'S  (416  %) 

*  Explicit  method  with  optimum  time  step. 

1.  Symmetric  Boundary  Conditions 

For  both  radially  and  axi-symmetric  boundary  conditions,  the 
results  of  both  methods  rapidly  converged  with  each  other  within  the 
first  three  percent  of  the  transient  cycle. 

2.  Asymmetric  Boundary  Conditions 

When  asymmetric  boundary  conditions  were  applied,  large 
differences  were  observed  at  surfaces  nearest  the  surface  of  applica- 
tion. These  differences  were  eliminated  by  apllication  of  a  finer  grid 
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size  in  the  direction  of  principal  flux  and  are  thus  attributed  to  discre- 
tization errors  due  to  the  generally  coarse  nature  of  the  applied  grid. 

D.      APPLICATION  EXAMPLE 

A  satellite  thermal  analysis  problem  (Appendix  G)  was  selected  as 
offering  a  practical  example  of  a  system  subjected  to  long-period 
steady-state  transient  behavior.  Figure  13  presents  a  graphical 
comparison  of  the  results  of  both  methods  for  the  initial  3000  seconds 
of  the  first  transient  cycle.  Figure  14  exhibits  the  thermal  response  of 
selected  nodes  as  calculated  by  Brian's  Method  for  the  initial  10  tran- 
sient cycles  of  the  application  example. 
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VII.  CONCLUSIONS  AND  RECOMMENDATIONS 

A      CONCLUSIONS 

1.  Adaptability 

Brian's  Method  is  readily  adaptable  to  cylindrical  geometries. 
However,  compensation  must  be  made  for  the  lack  of  tridiagonality  of 
the  coefficient  matrix  when  calculating  intermediate  temperatures  in 
the  phi-direction. 

2.  Relative  Accuracy 

For  symmetric  boundary  conditions,  Brian's  Method  delivers 
accuracy  comparable  to  the  explicit  method.  Convergence  is  negligibly 
slower  than  that  observed  for  the  explicit  method. 

3.  Relative  Execution  Speed 

Brian's  Method  offers  distinct  advantages  over  the  explicit 
method  for  systems  demonstrating  periodic  steady-state  temperature 
response,  and  for  those  systems  with  extended  single  transient  cycles 
whose  geometry  makes  the  explicit  timestep  limitation  overly  restric- 
tive. For  some  geometries,  Brian's  method  is  slower  than  the  explicit 
method  and  is  not  recommended. 

4.  Relative  Benefits 

The  principal  benefit  of  Brian's  Method  is  its  unconditional 
stability  and  associated  freedom  from  timestep  restrictions.  This 
allows  the  user  to  apply  a  coarse  grid  and  timestep  to  allow  rapid 
coarse  analysis  with  the  ability  to  adjust  the  step  size  downward  as  the 
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situation  warrants.  However,  the  relative  advantages  of  the  unre- 
stricted timestep  must  be  carefully  considered  against  the  substantial 
increase  in  algebra  and  code  requirements. 

R      RECOMMENDATIONS 

1.     Adaptation  of  Brian's  Method  FORTRAN  Code  to  C  Pro- 
gramming Language 

a      Background 

The  large  storage  and  calculation  requirements  associ- 
ated with  finite  difference  approximations  of  transient  heat  conduc- 
tion problems  have  historically  relegated  their  analysis  to  the  realm  of 
the  mainframe  computer.  However,  recent  developments  in  micro- 
processor technology  have  dramatically  improved  the  storage  capabil- 
ity and  execution  speeds  of  personal  computers  (PCs).  Consequently, 
increasing  amounts  of  engineering  analysis  and  design  are  being  con- 
ducted on  these  devices  at  significant  cost  reductions.  In  research 
being  conducted  under  the  auspices  of  the  Electrical  and  Computer 
Science  Department  at  the  Naval  Postgraduate  School,  FORTRAN 
codes  involving  large  numbers  of  repetetive  calculations  or  iterations 
have  been  demonstrated  to  experience  significant  improvements  in 
execution  speed  when  converted  to  the  C  programming  language  prior 
to  execution  on  a  personal  computer  [Ref.  11]. 
b.      Recommendation 

It  is  strongly  recommended  that  research  be  conducted 
to  investigate  the  feasibility  of  and  limitations  on  the  conduct  of  tran- 
sient heat  conduction  analysis  on  personal  computers  employing  a  C 
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programming  language  adaptation  of  the  Brian's  Method  FORTRAN 

code. 

2.      Incorporation  of  the  Analysis  of  Directional  and  Time-Depen- 
dent Properties  in  Brian's  Method 

a.  Background 

Composites  demonstrate  strong  directional  and 
temperature  dependent  thermal  properties  and  are  being  rapidly 
assimilated  into  many  engineering  applications. 

b.  Recommendation 

It  is  recommended  that  additional  research  be  con- 
ducted to  develop  procedures  for  the  incorporation  of  directional  and 
time-dependent  thermal  properties  into  Brian's  Method. 
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APPENDIX  A 
NODE  EQUATIONS  FOR  EXPLICIT  METHOD 

A      TYPE  1  NODES— END  LAYERS,  INNER  SURFACE 

r      =771^   +  2Fo|_(7\  +T  )+Cl(TE  +  Tw-2T  ) 


where 


.  n         n. 


+  c2(J0-T  ) 
+  c3(c/'e  +  hc  T„  +  hr  Tsur) 

e  e 


kAz2 
c,  = 


2k2r(r+-^)A<l)2 


4 


kr(r  +  Af)Az2 

c2= T 

k2(r+—)Ar2 


Az 


c  = 


3  *z 


rA  z'- 


4  A  r 

fc,(r+—  )Ar 
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c5=\+2Fo[c3(hCe  +  hr)  +  c4(hCj  +  hr)^ 

e 

hT=ep  (r"+rw)L(rY+rw2J 

a      TYPE  2  NODES— END  LAYERS,  MID-RADII 

Tn+1  =  ±{Tn+2  Fd[(X"  -  Tn)  +  q(r;  +  T*-  2T") 

+  c2(t;-t") 

+  c3(Tn0-T") 
+  c4(</'e  +  hcT„  +  hrT„tr)\} 
where 


kAz2 

9 

C  = ; 

2kzr2<p' 


C„  = 


kT{r-±f)Az2 


2  2k,  r A? 


kr(r  +  -^-)Az2 

C-x  =  5 

3  2k,rAr2 
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Az 


c5=l  +  2Fo[c4(hCt  +  hr)\ 


hr   =  etcr(Tn  +  Tw)[(n2  +  Tj] 


C      TYPE  3  NODES— END  LAYERS,  OUTER  SURFACE 


Tn+l=-^{Tn+2Fo[(T;-Tn)+Cl(TnE  +  Tnw-2Tn) 


n  n 


+  c2{T]-T) 

+  c2(c/'e  +  hcT„  +  hrTsur) 

e  e 

+  cJif0+hgTm  +  hrTmr)§ 


where 


kAz2 


<\  = 

2kz(r- 

-    4  )^A0 

kr(r- 

--y-)Az 

C2 

K(r- 

ArNA    2 
"    4  )Ar 

c,  = 

Az 

3    *, 
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rAz 

c .  = 


4      /    /        ArXA 
kz(r-  —  )Ar 


c5=l  +  2Fo\c3(he   +hr  )  +  cA(hc    +h,)\ 
J  L««  o  o  J 

hr=eeo  (j,*+Tsur)[(TH)2+TMr2\ 

hr    =  e0G  (Tn  +  Tsur)[(Tnf  +  Tsur2\ 


D.      TYPE  4  NODES— MID-LAYERS,  INNER  SURFACE 

Tn+l=±{TH  +  Fo[(TnN  +  Tl-2Tn)+cl(TnE  +  Tnw-2Tn) 


n  n. 


+  c2(T0-T) 


+  c3tf'I+hcT„  +  hrTtur)]} 

i  i 


where 


k,Az2 

C\  ~  A 

kzr(r+^f)A(t)2 


2kr(r+-^)Az2 
kz(r  +  -^)Ar2 
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c,  = 


2rAz2 


3  Ar 

kt(r+-^)Ar 


cA=\  +  Fo[c3(hC]  +  hr)^ 

hr^ep  (T"  +Tsur)[(Tnf  +  Tsur2\ 

E.      TYPE  5  NODES— MID-LAYERS,  MID-RADII 

rn+1  =Tn  +  Fo[(TnN+Tns-2Tn)  +  Cl(TnE  +  Tnw-2Tn) 

+  c2{T]-Tn) 
+  c3(Tn0-T")\ 


where 


JL  Az2 


c,  = 


kj2A<p 


kr(r+-Y)Az2 
°2  =         k,rAr2 


/        Ar,.    , 
(r+—)Az2 

c,  = 


3  k,Ar2 
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F.      TYPE  6  NODES— MID-LAYERS,  OUTER  SURFACE 

n+l  r n  n  n  n  n  n  n 

T      =i~{T   +Fo[(TN+Ts-2T  )  + cx(T E +  T w -2T  ) 


where 


.  «  H 


+  c2(TI  -  T  ) 
+  c3(<ro+heTm  +  hrT„)$ 


kA  Az2 
kzr(r-  -^-)A0 


C2  = 

2k 

■  (r 

Ar 

4 

•)Az2 

v 

(r  - 

Ar, 

lA  r2 

2rAzz 


C3  Ar 


C4  = 


k2(r-^-)Ar 


l+Fo\c3(heo  +  h,o)^ 


hr    =e0a  (T"  +  7Jur)|_(r',)2  +  r_2J 
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APPENDIX  B 
NODE  EQUATIONS  FOR  BRIANS  METHOD 

A      TYPE  1  NODES— END  LAYERS,  INNER  SURFACE 


k^Az2 
c,  = 


2ktr(r  +  ^)A<t>2 


r>    — 

kr(r  +  -^)Az2 

C2 

Mr+x)^ 

c  = 


3       k, 


rA  r 


k2(r+—  )Ar 


c5=\  +  2Fo  [c3(hCe  +  hr)  +  c4(h  Cj  +  hr)\ 


h,    =eeo(Tn+Tsj[(Tn)2+TsurT] 


hr  =elG(Tn+Tsj[(T'')2+Tsur2] 
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1.      Step  1  (z-Direction) 


at]+bt*  +ct'n=d 


where 


0,    Bottom  layer  nodes 
-  Fo,    Top  layer  nodes 


B=l  +  Fo\l  +  c2(hCe  +  hr)  +  cJhCt  +  hr)^ 


-  Fo,    Top  layer  nodes      1 
0,    Bottom  layer  nodes} 


D  =  Tn  +  Folc1(THE  +  Tnw-2TH)+c2(Tn0-Tn) 
+  c3tf,  +  hc  T„  +  hr  Tw) 

e  e 

+  c4(c/'I+hcT„  +  hrTsur)^ 
2.      Step  2  ((^-Direction) 


•  *  •  » 


ATE  +BT     +CTW  =D 


where 


A  =  -  c}Fo 
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B=\+Fo 


2C]  +  c3(/2c    +hr  )+cA(hc    +hr  )| 
i  *  ill 


C  =  -  c,Fo 


D  =  T+Fo[(T]-r)  +  c4(T',0-TH) 


+  cJcfe  +  heTm  +  hrT„) 


+  cA{<fI+heTm  +  hrTm,) 


i  i 


3.      Step  3  (r-Direction) 


where 


ATy+BT-  +  Cr"=D 


A  =  0 


B  =  \+Fo 


c2+c3(hc    +hr  )+c4(hc    +hr  ) 

e  e  11 


C  =  -  c„  Fo 


D  =  Tn  +  Fo[{T]-T*)  +  cx  (T"E*  +  T^  -  27"**) 


+  cA<T.  +  he  T„  +  hr  Tsur) 
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+  c4tfl+heTm  +  hrTm,)^ 

4.      Step  4  (o-Direction) 


i***    _.••• 


+  c2(r;--r") 

+  C4(^/-/2cr„-/2r/7_)J} 

a      TYPE  2  NODES— END  LAYERS,  NOD-RADII 


c,  = 


*   Az2 

9 


c  = 


2£2r202 


*r(r-^)Az2 


2  o  ;,    w  a  -  2 


C,  = 


2k,rAr- 


kr(r  +  ^-)Az2 


3  o  ;,    _  a  _  2 


2k,rAr- 


Az 


c5=l  +  2F0|_c4(/2£<  +  /2%)J 
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h,  =eea  (r"+rw)[(r")2+rLj 

1.      Step  1  (z-Direction) 


ATS+BT  +  CTN 


where 


0,    Bottom  layer  nodes 
Fo,    Top  layer  nodes 


e=i+  Fo[i+c4(/?Ce+/7re)] 

-  Fo,    Top  /oyer  nodes 


C  =  , 

0,    Bottom  layer  nodes 


D  =  Tn  +  Fo[cl(TnE+Tnw-2Tn)  +  c2(T"1-Tn) 
+  c3(T*0-T*) 

+  c4(cf'e  +  hc  T„  +  hr  rw)| 

<  e  J 

2.      Step  2  ((^-Direction) 


A7£  +57     +  C7W  =  £> 


where 


A  =  -  cxFo 
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B=  l+Fo|2c,  +  c4(/ic    +h,  )J 


C  =  -  c,  Fo 


D  =  TH  +  Fo[(T;-Tt)  +  c2(T';-T'l)+c3(TH0-TH) 

t  e  J 

3.      Step  3  (r-Direction) 


where 


AT]"  +BT"*  +  CTo*  =D 


A  =  -  c2Fo 


B  =  l+Fo\c2+c3  +  c4(hCt  +  hr)\ 


C  =  -  czFo 


d  =  Tn  +  fo[(t;  -r )  +  c  }(t'e'  +  r;;  -  it") 

+  c4(</'e  +  hc  L  +  ^r^)! 

€  e  J 
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4.      Step  4  (New  Temperatures) 


T^=^{TH+2Fo[(T;-r)+c,(T-E-  +  r;-2T~) 


,  •  *  •  ••* 


+  c2(7,    -T      )  +  c3(TQ    -T      ) 
C      TYPE  3  NODES— END  LAYERS,  OUTER  SURFACE 


k\z2 
c.  = 


2k2(r-^)rA((,2 


kr(r-Af)Az* 


Az 
c,  = 


3       it, 


rA  z 
c  = 


A  r 

kz(r-^f)Ar 


c5=l  +  2Fo\cJhc    +hr  )+cA(hc    +hr  )| 
L  *  «  o  o  J 


hr    =eeG(Tn+Tsur)[(Tn)2+Tj] 
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hr    =e0a  (Tn  +  Tsur)[(T n)2  +  Tsur2\ 
o 

1.      Step  1  (z-Direction) 


ATS+BT  +CTN=D 


where 


0,    Bottom  layer  nodes 
-  Fo,    Top  layer  nodes 


B=l  +  Fo\l  +  Ci(hc    +hr  )+cA(hc    +hr  ) 
L  *  *  o  o  _ 


Fo,    Top  layer  nodes 
0,    Bottom  layer  nodes) 


D  =  T"  +  Fo[c^  (T*e  +  Tnw  -2T")  +  c2 (T#"  - T ") 
+  c3W'e  +  hcT„  +  hf  Tsur) 

e  t 

+  ctf'0-hcT„-h,Tw)^ 
2.      Step  2  ((^-Direction) 


AT*  +BT"  +  CT^  =D 


where 


A-  -  cxFo 


68 


B  =  l  +  Fo\2c1  +  c3{he    +hr)  +  cA(hc    +hr   )| 
L  «         *  o         o  j 


C  =  -  cFo 


d  =  th  +  fo  |_(r;  -  t')  +  c2(r;  -  r") 


+  C.W.  +  A.  7\.  +  a,  r.) 


+  c4(<f0  +  he  T„  +  hr  Tsur)\ 

o  o  J 


3.      Step  3  (r-Direction) 


where 


AT,     -(-57      +CTQ    =D 


A  =  -  c2  Fe> 


£  =  l+Fo    c2  +  c3(/zc    +  /ir)  +  c4(/*c    +Ar   )| 


c  =  o 


D  =  7 B  +  Fo  [(T  J  -  T  ' )  +  c  ,(7^  +  7 ^  -  27 "  ) 


+  <\W\  +  AC  T.  +  A,  Tsur) 
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+  C4<^0+*./-  +  *r/-r)J 


4.      Step  4  (New  Temperatures) 


^n+1=^-{^',+2Fo[(^;-7*)+c1(^;•  +  ^;'-2^*•) 


•**       _ **v 


+  c2(TJ     -T     ) 


+  c3(flr.  +  /»e  r.  +  *r  tw) 


+  c4(cf't  +  hc   T„+hr  Tsur)\\ 
o  o  JJ 


D.      TYPE  4  NODES— MID-LAYERS,  INNER  SURFACE 


k.Az2 

cl  - 

K 

Kr+    4 

)A02 

C2  = 


2fcr(r  +  ^)Az2 


C3  = 


2rAz2 


;   /         Ar.A 


c    =l+Fo[c3(/2c    +/2r  )] 


i         i 


^r;  =  f/cr(r',+Tw)[(r")2+7 


2        _        2 


70 


1.      Step  1  (z-Direction) 


AT*S+BT*  +CT'N=D 


where 


A~       2 


Fo 


B  =  \  +  iY\l  +  c,{hCi  +  hr)\ 


r        J-2. 
c  "       2 


D  =  Tn+^L[cl(THE+Tnw-2Tn)  +  c2(T"0-TK) 
+  c3(<f'J+hcT„  +  hrTsur)^ 
2.      Step  2  ((^-direction) 


AT"  +BT"  +  CT*'  =D 

E  W 


where 


c  Fo 

A=--±x— 


B  =  l  +  ^2Cl  +  c3(hCj  +  hr)j 
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c  =  - 


c  Fo 


D  =  Tn+^-[(T'N  +  Tl-2T')  +  c2(T^-Tn) 


+  c3(<fI+heT„  +  hrTMr)^ 


3.      Step  3  (r-Direction) 


where 


AT  j     +BT      +CT0    =D 


A=0 


B=  1  + 


Fg_  v 

2    . 


c   +  c 

L2        C  3 


(hc    +hr)] 

i  i  J 


C  =  - 


c^Fo 


D  =  T  +  ^-[(T'n  +  t;-2T-)+c:(T'e'+T;'-2T") 
+  cstfl*heTm  +  hrTm,)^ 


4.      Step  4  (New  Temperatures) 


Tnl  =  —  {T"  +  Fo[(T'n  +  T's-2T')  +  cx<J~  +  T'W'-2T  ") 


11 


. •**  •• * 


+  c2(T0    ~T      ) 


E.      TYPE  4  NODES— MID-LAYERS,  MID  RADII 


c,  = 


*,Az2 


c,  = 


ktr2£42 


M/-  +  —  )Az2 


2  ;,    «  a  «  2 


ktrAr- 


A/\  .    2 


c,  = 


(r+^y-)Az 


3  ;,     a  _  2 


&rAr 
1.      Step  1  (z-Direction) 


at's+bt'  +ct'n=d 


where 


A  2 


B  =  1  +  Fo 


r         -^2. 

U  "       2 
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D 


=  T+    i     [c](TE  +  Tw-2T)  +  c2(Tl-T)  +  c3(T0-T  )J 


2.      Step  2  ((^-Direction) 


where 


ATE  +BT    +CTW  =D 


c,  Fo 


5=1  +  c^Fo 


cFo 


D  =  T  +  ^[{T  'N  +T'S-  IT' )  +  c  2{T]  -T*)  +  c  ^Tn0-  Tn)] 


3.      Step  3  (r-Direction) 


where 


AT,     +BT      +CTQ    =D 


A  =  - 


c^Fo 


B=\  +  ^-(c2+c3) 
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c  =  - 


c^Fo 


D  =  T"  +  ^[a;+T-s-2T-)  +  cl(T-;  +  T-;-2T")] 


4.      Step  4  (New  Temperatures) 


F.      TYPE  4  NODES— MID-LAYERS,  OUTER  SURFACE 


ci  = 


*,Az2 


*r  r(r-  -^)A<p2 


2kr(r-^)Az2 


C3  = 


2rAz2 


Wr-j)Ar 


c   =  1  +Fo 

4 


C3(*e        +hr     )| 

o  o  J 
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1.      Step  1  (z-Direction) 


AT]  +  BT*  +CT'N=D 


where 


A~       2 


Fo 


B=l  +  iy[2  +  c3(hCo  +  hrJ] 


r         F° 
c  ~       2 


+  c3(c/'0+he  7»  +  hT  Tm)\ 

o  o  J 

2.      Step  2  ((^-direction) 


at"  +bt"  +  ct^.  =d 


where 


c,  Fo 

A=--^r- 


B  =  \  +  E^  +  2cx  +  cAhc    +hr   ) 

2-  l        3        o  o 


C=         ' 


c,  Fo 
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D  =  T*  +  ^[{T^  +T)-  2T*)  +c  2{T"  -T*) 
+  c3(cf0+he  T„  +  hr  T„)\ 

0  o  J 

3.      Step  3  (r-Dlrection) 


AT)     +BT      +CTQ    =D 


where 


c.Fo 
A=--~- 


B  =  l  +  ?JLC    +c  (hc    +hr   ) 
l  o  o 


C  =0 


D  =  Tn  +  ^[(T'N+T's-2T-)+C](TnE+Tnw-2Tn) 

4.      Step  4  (New  Temperatures) 

T      =  —  {T    +Fo[(Tn+Ts-2T  )+c,  (Te  +Tw  -IT    ) 


»  •  m*< 
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APPENDIX  C 
VALIDATION  MODEL 

A      PROBLEM  SPECIFICATION 

Given  a  right  circular  cylinder  with  adiabatic  ends  and  specified 
initial  temperature  distribution  and  constant  inner-surface  tempera- 
ture of  zero  degrees  Celsius.  At  time  t  =  0,  a  uniform  constant  heat  flux 
is  applied  to  the  outer  surface  of  the  cylinder.  Assume  constant  prop- 
erties and  no  losses  due  to  convection  or  radiation. 

a      ANALYTIC  SOLUTION 
Fourier  Equation 

«   a 
Boundary  Conditions: 

ro=  a  T  =  0 

r0=  b  dt     '  k 

Initial  Condition: 

t=0  7=0 

Let:   T  =  f  (  r„  t)  +  <*>(  r0) 
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Auxiliary  Problem 

1     dWr0,t) 
V'«P(r0>t)  +  V~<P(r0)  =  -^ ^f— 


f( r   t )  +  V20 ( r  )  =  —  — 


*"(r.,0+^ 


r0=  ft  d-'    v'""      dra        k 


t  =  0  *  (ro,O)+0  (r„)  =  0 


Separating  the  Auxiliary  Problem 
Equation  1: 


r  =  a  0(a)  =  O 


drn         k 


dd> 

^  y  =  -dT0 

Then: 


dy         y_ 
drn  r0 
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dy_         dr, 
y  ~       r0 


ln(y)=-ln(r,)+  c, 


y  =  ~r 


And: 


d®     _5_ 


dr 
d<P=cl-r 


Yielding: 


<P  =cx  ln(r,)  +  c. 


Evaluating  Constants 

r=  a  ->  0=0 


r=  &  -> 


d®  =  4 

drn  '     k 


bet'  r0 

Thus:        <Z>(ro)=-^-  In  (-f) 


0  = 

■cx  In  (a) 

+  C2 

C2 

Ma) 

c,  ■■ 

£•   q 
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Transforming  the  Variable 

Let:    r=^- 
b 

And:  K=~h 


<P(r)=-f-ln(f) 


Then:  k 

Converting  Boundary  Conditions 


r0=  a  =>  r=^f  =  K 


r„  =  b  =>  r  -  i 

The  Transformed  Problem  Becomes 


0(r)=-^-  ln(f) 


d<t>{  r)       bq 


r=  1 


Equation  2: 


dr 


<?¥         1    dV         1     d¥ 


dr  2        r°    dr0       «       dt 


r  =  a  na)=0 
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av  =0 


r„=  b  dr 


t  =  Q  ¥  (r.,0)  =-  0  (r.) 


Let:  f  (r.,t)=R(re)r(t) 
Then:       *"r  +  ftf'r  =  5"*^ 
Which  reduces  to 


R       r0   R      a    r  P 


Separating  the  two  equalities,  we  obtain. 
Equation  2. a 


a     r  ~     p 


ln(r  )=-  a  P  '2t 


r(t)  =  e 


Equation  2.b 


ro  =  a  R  =  0 


r  -  h  dR      n 

r0=  b  —7—  =  0 

drn 


From  Table  3-2,  Case  B  of  Ozisik 
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R(p  ',r0)=J0(P  'r0)Y0(P  '  b)  -  J  Ap  'b)Y0(P  ' >.) 
the  inverse  of  the  norm  is  given  by 


YP2J2o(P'<>) 


N(P')       J2o(P'a)-J20(p'b) 
and  the  eigenvalues  are  the  roots  of 

JAP  •a)Y0(P'b)-JAp-b)YAP  *a)  =  0 
From  the  recursion  relations  we  know 

j'0(x)=-J<ix) 

and  similarly 

Y'0{x)=-  Y:(x) 

Substituting,  multiplying  by  -1,  and  rearranging  terms  yields 

Yx(fi  'b)J0(p  *a)-J,(P*b)Y0{P  *a)  =  0 

Transforming  Variables: 

Letting:    P  =  P  'b 

and  recalling  that:       k  =  -? 

we  obtain  by  substitution  the  common  tabular  form: 

y1(P)-jak  P)-J1(P  )-y0{k  p  )  =  o 
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Performing  similar  variable  transformations  on  the  transient 
solution  yields: 

R(p,r)=Jl(p)Y(rp)-J0(rp  )-Yl(p   ) 

with  the  norm 


2  j:<kP)-j;ui) 

N(P  )  =  ~2  2 

^JlisP) 
b 


Total  Solution: 


bq         r     xr-  -  a  p  2  t         i 

nr,0=-fln(f)I{exp(— ^-)  ^  * ,  (,,/J ) 


f1  bap 

J  [p/?,(^  )-"lT~ln  (£")]<*P  ) 
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APPENDIX  D 
EXPLICIT  METHOD  STABILITY  REQUIREMENTS 

The  following  equations  represent  the  limiting  time  step  size  for 
their  respective  node  types. 

A      TYPE  1  NODES— END  LAYER,  INNER  SURFACE 

lAz2  kr(r+A^)Az2 

Ar  <1  + * 


ktr(r  +  ^-)A02       k,(r  +  ^)Ar2 


K      TYPE  2  NODES— END  LAYERS,  MID  RADII 


kAz2         t(r-y)Az2 
Ar„  <  1  +  — r  + 


k,r2A<p2  2k,rAr2 


C      TYPE  3  NODES— END  LAYERS,  OUTER  SURFACE 


kAz2  kr(r  +  -^)Az2 

At,  <1+ + 


kzr(r  +  ^f)A(j)2       k,(r  +  ^f)Ar2 


D.      TYPE  4  NODES— MID-LAYERS,  INNER  SURFACE 


2k    Az2  2Mr  +  4r) 

A'4  ^  2  + ^ + r^— 

;    /-         Ar  v  A  .2  Arz 
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E.      TYPE  5  NODES— MID-LAYERS,  MID-RADII 


21A22    *,c-4r)    Mr+4r) 

Ar,  <2  + ^  + 4—  + 


ktr2A(j>2  kzrAr2  kzrAr: 


F.      TYPE  6  NODES— MID-LAYERS,  OUTER-SURFACE 


^ 


2  k, 

Az2 

2kr(r~ 

+ 

-— )Az2 

*, 

r  (r  - 

Arw.  2 
— )ty 

Mr- 

^)Ar» 
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APPENDIX  E 
EXPLICIT  METHOD  CODE 


C      ECR  FORTRAN  A  -  (REV.  11/23/88) 

C      SATELLITE  MODEL  -  VALIDATED  11/26/88 

r      ********************************************************** 

C      *  ECR  -  PROGRAM  TO  COMPUTE  NODE  TEMPERATURES  FOR  A  RIGHT  * 

C      *        CIRCULAR  CYLINDER  SUBJECTED  TO  CONVECTIVE  AND/OR  * 

C      *        RADIATIVE  BOUNDARY  CONDITIONS  USING  THE  EXPLICIT  * 

C      *        METHOD  OF  FINITE  DIFFERENCE  ANALYSIS.  * 

n  a********************************************************* 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  TOLD (15, 15, 15) ,TNEW(15, 15, 15) 
DIMENSION  DMATU5,  15,  15) 

COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ , RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI , NLAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN,  EPSUBS, EPSUBI,  EPSUBO, SIGMA 
COMMON  /TEMPS/   Tl , T2 , T3, T4, T5, T6, T7, T8 , T9, T10 , TINF, TSUR 
COMMON  /TIMES/   DELTIM, DTMAX, FINTIM, LIMIT 
C      START  TIMER 
CALL  STIME 

OPEN  (UNIT=11,FILE='ECRLNG' ) 
OPEN  (UNIT=14,FILE=,ECRDAT' ) 
OPEN  (UNIT=15,FILE='ECRCPU' ) 
C***********************  USER  DEFINED  VARIABLES 
DELTIM  =  0.30D+00 

=  3000.0D+00 

=  100 

MATRIX  DIMENSIONS 

=  10 

=  4 

=  5 
SPECIFICATION  FOR  FILE  ESHORT 

=  10 

=  2 
3 
ARRAY  DIMENSIONS 


it*********************** 


FINTIM 

IPRINT 

ACTUAL 

NODES 

NPHI 

NLAYER 

NODE 

MRAD 

MPHI 

MLAYER  = 

DECLARED 

III  -  15 

JJJ  =15 

KKK  =  15 

ABSORPTIVITY  COEFFICIENTS 

ALFAN  =  0.4D+0  0 

ALFAS  =  0.4D+00 
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ALFAO  =  0.4D+00 

ALBEDO  COEFFICIENT 

ALBEDO  =  0.30D+00 

THERMAL  CONDUCTIVITIES 

DKR  =  177 .D+00 

DKP  =  177. D+00 

DKZ  =  177. D+00 

EMISSIVITIES 

EPSUBN  =  0 .9D+00 

EPSUBS  =  0.9D+00 

EPSUBI  =  0.D+00 

EPSUBO  =  0. 9D+00 

CONVECTION  COEFFICIENTS 

HSUBN  =  0.D+00 

HSUBS  =  0.D+00 

HSUBI  -  0.D+00 

HSUBO  =  0.D+00 

HEAT  FLUXES 

SOLAR  =  1353. D+00 

EIR     =  238.0D+00 

GEN  =  1000. 

QPSUBI  =  0.D+00 

QPSUBO  =  0.D+00 

QPSUBN  =  0.D+00 

QPSUBS  =  0.D+00 

GEOMETRY 

RMIN  =  0  .15244D+00 

RMAX  =  0.22866D+00 

ZMAX  =  1.D+00 

VIEW  FACTORS  WITH  THE  EARTH 

VERTHN  =  0.D+00 

VERTHS  =  1.D+00 

VERTHI  =  0.D+00 

VERTHO  =  O.D+00 

VIEW  FACTORS  WITH  SPACE 

VSPCN  =  1.D+00 

VSPCS  =  0.D+00 

VSPCI  =  0.D+00 

VSPCO  =  1.D+00 

TEMPERATURES 

TABS  =  273. D+00 

TINIT  =  293. D+00 

TINF   =  O.D+00 

TSUR   =  4. D+00 

MATERIAL  PROPERTIES 

CSUBP  =  875.0D+00 

RHO    =  2270.0D+00 

INITIALIZE  OTHER  VARIABLES 


ICOUNT 

=  0 

ITIME 

=  0 

ORBTIM 

=  O.D+00 

PI 

=  4 . 0D+00*DTAN(l.D+00) 

RAD 

=  RMIN 

SIGMA 

=  5.67D-08 

TIME 

=  O.D+00 
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Tl      =  O.D+00 
C      INITIALIZE  MATRICES 

CALL  BMINIT  (TOLD,TINIT) 

CALL  BMINIT  (TNEW,TINIT) 
C      SURFACE  AREA  CALCULATIONS 

SAREAN  =  PI*(RMAX**2  -  RMIN**2) 

SAREAS  =  PI*(RMAX**2  -  RMIN**2) 

SAREAI  =  PI* (2*RMIN) *ZMAX 

SAREAO  =  PI* (2*RMAX) *ZMAX 
C      INITIAL  CALCULATIONS 

ALFA  =  DKZ/ (RHO*CSUBP) 

DPMI  =  2.*PI/NPHI 

DR  ■  (RMAX-RMIN) / (NODES-1) 

DZ  =  ZMAX/ (NLAYER-1) 

LPHI  =  360/NPHI 

QPSUBI  =  GEN/SAREAI 
C      ORBITAL  PARAMETERS 

PERIOD  =  5440. D+00 

ECLIPS  =  2181.9D+00 

OMEGA  =  1.155D-03 

TAU  =  0.01*PERIOD/4 

TIME1  =  O.D+00 

TIME2  =  PERIOD/4. D+00 

TIME3  =  107 .8D+00/360  *  PERIOD 

TIME4  =  (270  -  17.8) /360  *  PERIOD  -  4*TAU 

TIME5  =  (270  -  17.8) /360  *  PERIOD 

TIME6  =  270/360  *  PERIOD 
C      ESTABLISH  STABILITY  REQUIREMENT 

CALL  STABIL  (DTMAX) 

FO  =  ALFA*DELTIM/  (DZ**2) 

LIMIT  =  FINTIM/DELTIM  +  500 
C      WRITE  MATRIX  DIMENSIONS  TO  FILE  14  (ECRDAT) 

WRITE  (14,*)  NODES , NPHI , NLAYER 
C 

C      ***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 
C  PRINT  INTERVAL.   USE  FOR  LONG  PERIOD  EVALS . 

WRITE  (11,*)   'ECRSAT' 

WRITE  (11,*) 

WRITE  (11,888) 
888    FORMAT  (T6, 'TIME',T18, ' DELTIM' , T30, ' LAYER1 ' , T45, ' LAYER3 ' , T60 , ' LAYE 

1R') 

WRITE  (11,*) 
C 

CMMMMMMMMMMMMMMMMMMM  BEGIN  TEMPERATURE  COMPUTATIONS  MMMMMMMMMMMMMMMMMMMM 
C      GET  TIME  ENTERING  LOOP  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

WRITE  (11,*)   'ENTERING  LOOP  TIME' 

CALL  GTIMEd,  11) 

DO  100  1=1, LIMIT 

ICOUNT=ICOUNT+l 
TIME=TIME+DELTIM 
ORBTIM  =  ORBTIM  +  DELTIM 

IF  (ORBTIM. GE. PERIOD)  ORBTIM  =  ORBTIM  -  PERIOD 
C      SURFACE  FLUX  CALCULATIONS  (TIME  DEPENDENT) 

IF  ( (ORBTIM. GE.0) .AND. (ORBTIM. LE.TIME2) )  THEN 
QPSUBN  =  ALFAN*SOLAR*DCOS (OMEGA*ORBTIM) 
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c 
c 
c 


c 

c 
c 
c 

400 
300 
200 
C 

c 
c 
c 
c 


QPSUBS  =  ALFAS* (EIR  +  ALBEDO*SOLAR*DCOS ( OMEGA *ORBTIM) ) 
QPSUBO  =  0.5*ALFAO*SOLAR*DSIN(OMEGA*ORBTIM) 
ELSEIF  ( (ORBTIM.GT.TIME2) .AND. (ORBTIM. LE . TIME3) ) THEN 
QPSUBN  =  0 . 

QPSUBS  =  ALFAS* (EIR  +  (ALBEDO+DCOS (OMEGA*ORBTIM) ) *SOLAR) 
QPSUBO  =  0.5*ALFAO*SOLAR*DSIN(OMEGA*ORBTIM) 
ELSEIF  ( (ORBTIM. GT.TIME3) .AND. (ORBTIM. LE.TIME4) )  THEN 
QPSUBN  =  0 . 
QPSUBS  =  ALFAS*EIR 
QPSUBO  =  0.D+00 
ELSEIF  ( (ORBTIM. GT.TIME4) .AND. (ORBTIM. LE.TIME5) )  THEN 
QPSUBN  =  0.D+00 
QPSUBS  =  ALFAS* (EIR 
1  +  DABS (ALBEDO*SOLAR*DSIN(OMEGA*ORBTIM) ) 

1  *  (1-DEXP (-(ORBTIM-TIME4) /TAU) ) ) 

QPSUBO  =  0 . 5*ALFAO*DABS (ALBEDO*SOLAR 
1  +  DSIN(OMEGA*ORBTIM) 

1  * (1-DEXP (- (ORBTIM-TIME4) ) /TAU) ) 

ELSEIF  ( (ORBTIM. GT.TIME5) .AND. (ORBTIM. LT.TIME6) )  THEN 
QPSUBN  =  0.D+00 
QPSUBS  =  ALFAS* (EIR 
1  +  DABS (ALBEDO*SOLAR*DSIN (OMEGA* ORBTIM) ) ) 

QPSUBO  =  0.5*ALFAO*DABS(SOLAR*DSIN(OMEGA*ORBTIM) ) 
ELSEIF  (ORBTIM. GT. TIME 6)  THEN 

QPSUBN  =  ALFAN*DABS (SOLAR*DCOS (OMEGA* ORBTIM) ) 
QPSUBS  =  ALFAS* (EIR 
1  +  DABS (ALBEDO*SOLAR*DSIN (OMEGA*ORBTIM) ) ) 

QPSUBO  =  0.5*ALFAO*DABS (SOLAR*DSIN(OMEGA*ORBTIM) ) 
END  IF 
CALL  MAIN  SUBROUTINE 

CALL  NUTEMP  (TOLD, TNEW, DELTIM) 
MAP  NEW  TEMPERATURE  MATRIX  ONTO  OLD  TEMPERATURE  MATRIX 

CALL  MAP122  (TNEW, TOLD) 
SAVE  TIME,  DELTIM  AND  TEMPERATURE  MATRIX  TO  DATA  FILE  14  (ECRDAT) 
IF  (ICOUNT.EQ.IPRINT)  THEN 
ICOUNT  =  0 
WRITE  (14,*)  TIME, DELTIM 

****  CONVERT  NEW  TEMPERATURES  TO  EXCESS  FOR  PRINTOUT  **** 
DO  200  LAYER=1,NLAYER 
DO  300  INCRAD=l,NODES 
DO  400  IPHI=1,NPHI 

TNEW ( INCRAD, IPH I, LAYER)  =  TNEW ( INCRAD, IPHI , LAYER  1)  -  TINIT 

****  PRINT  OPTION  1  -  USE  WITH  CMPSHT, COMPAR, LNGFRM, SHTFRM, BCRERR 

SHORT  EVALUATION  TIMES  ONLY  (<400  SEC) 
WRITE  (14,*)  TNEW (INCRAD, IPHI, LAYER) 
CONTINUE 
CONTINUE 
CONTINUE 

***  PRINT  OPTION  2  -  SAVES  COMPLETE  MATRIX  AT  SPECIFIED  PRINT 

INTERVAL  -  SWITCH  OFF  ALL  SUBROUTINES  LISTED 
UNDER  PRINT  OPTION  1  FIRST. 
CALL  PRTMAT  (TIME, DTIME, TNEW,  NODES, NPHI ,  NLAYER) 
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c 

C      ***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 

C  PRINT  INTERVAL.   USE  FOR  LONG  PERIOD  EVALS . 

WRITE  (11,889)  TIME,DELTIM,TNEW(5, 1, 1) ,TNEW(5, 1,3) ,TNEW(5, 1, 5) 
889    FORMAT  (Tl, F9 . 3, T15, F9 . 3, T25, F12 . 6, T40, F12 . 6, T55, F12 . 6) 
C 

c      ********  RE-SPECIFY  PRINT  INTERVALS  ******** 
C  IF  (TIME. GE. 99. 9)  THEN 

C  IPRINT  =  200 

C  ELSEIF  (TIME.GE.9.9)  THEN 

C  IPRINT  =  100 

C  ELSEIF  (TIME. GE. 0.99)  THEN 

C  IPRINT  -  10 

C  ENDIF 

ENDIF 
C      TIME  INTERVAL  DELIMITER 

IF  (TIME.GE.FINTIM)  GOTO  101 

100  CONTINUE 

C      STOP  CLOCK  TIMER  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

101  CONTINUE 

C      GET  TIME  EXITING  LOOP 

CALL  GTIME  (1,11) 

CLOSE  (14) 

CLOSE  (15) 
C      WRITE  APPROPRIATE  DATA  FILES 
C      CALL  ERROR  (MRAD, MPHI , MLAYER) 
C      CALL  SHTFRM  (MRAD, MPHI , MLAYER) 
C      CALL  LNGFRM 

CALL  GTIME (1, 11) 
999    STOP 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BMINIT  FORTRAN  A  -  (REV.  9/28/88) 

Q  ************************************************************* 

C      *  BMINIT  -  SUBROUTINE  TO  INITIALIZE  TEMPERATURE  MATRIX  TO  A  * 
C      *  SPECIFIED  VALUE  (BRIAN'S  METHOD  ARRAY  FORMAT)      * 

Q  ************************************************************* 

C      PROGRAM  LINE  213 

SUBROUTINE  BMINIT  (DMAT,TINIT) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON  /ARRSIZ/  III,JJJ,KKK 
DIMENSION  DMATdll,  JJJ,KKK) 
DO  100  LAYER=1,KKK 

DO  200  IPHI=1,JJJ 

DO  300  INCRAD=1,III 

DMAT(INCRAD, IPHI, LAYER)  =  TINIT 
300  CONTINUE 

200        CONTINUE 
100    CONTINUE 
998    RETURN 
END 
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csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      STABIL  FORTRAN  A  (REV.  11/14/88) 

Q  ************************************************************** 

C  *  STABIL  -  SUBROUTINE  TO  COMPUTE  THEORETICAL  MAXIMUM  TIME  * 

C  *  INCREMENT  ALLOWED  TO  MAINTAIN  STABILITY  IN  EXPLICIT  * 

C  *         FINITE  DIFFERENCE  ANALYSIS  OF  A  CYLINDER  IN  3-D  * 

C  *         POLAR  CYLINDRICAL  COORDINATES .  * 

Q         ************************************************************** 

C      PROGRAM  LINE  237 

SUBROUTINE  STABIL  (DTMAX) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  DT (6) 
COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
C  ***  BODY  *** 

DO  50  1=1, 6 

DT(I)  =  0.D+00 
50     CONTINUE 

DUMMY  =  (DZ**2)/ALFA 
C      END  LAYERS,  INNER  SURFACE  NODES 

DCREI  =  1  +  (2*DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
DT(1)  =  DUMMY/ (2*DCREI) 
DTMAX  =  DT(1) 
C      END  LAYERS,  MID-RADII  NODES 

DCREM  =  1  +  2* (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI* *2 ) 
1+  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 
2+  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 
DT(2)  =  DUMMY/ (2*DCREM) 
C      END  LAYERS,  OUTER  SURFACE  NODES 

DCREO  =  1  +  2* (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 
1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 
DT(3)  =  DUMMY/ (2*DCREO) 
C      MID-LAYERS,  INNER  SURFACE  NODES 

DCRMI  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
DT(4)  =  DUMMY/DCRMI 
C      MID-LAYERS,  MID-RADII  NODES 

DCRMM  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 
1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2 ) 
2+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2 ) 
DT(5)  =  DUMMY/DCRMM 
C      MID-LAYERS,  OUTER  SURFACE  NODES 

DCRMO  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 
1+  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DT(6)  =  DUMMY/DCRMO 
DO  100  1=1, 6 

IF  ( (DT(I) .GT.O) .AND. (DTMAX.GT.DT(I) ) )  DTMAX  =  DT ( I ) 
WRITE  (*,*)   'FROM  STABIL,  I , DT ( I ) ■ , I, DT ( I ) 
10  0    CONTINUE 

IF  (DTMAX. LE.0)  WRITE  (*,*)   'STABIL  -  DTMAX  LE  ZERO' 
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998    RETURN 

END 
C 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      NUTEMP  FORTRAN  A  -  (REV.  11/14/88) 

Q  ******************************************************** 

C  *  NUTEMP  -  THIS  SUBROUTINE  COMPUTES  THE  MATRIX  OF  NODE  * 

C  *  TEMPERATURES  AT  THE  N+l  TIMESTEP  FOR  THE  * 

C  *  EXPLICIT  METHOD  OF  FINITE  DIFFERENCE  * 

C  *  ANALYSIS  FOR  A  RIGHT  CIRCULAR  CYLINDER  WITH  * 

C  *  CONSTANT  SURFACE  HEAT  FLUX  AND  A  SPECIFIED  * 

C  *  INNER  SURFACE  TEMPERATURE.  * 

Q  ******************************************************** 

C      PROGRAM  LINE  298 

SUBROUTINE  NUTEMP  (TOLD, TNEW, DELTIM) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN,  EPSUBS ,  EPSUBI ,  EPSUBO,  SIGMA 
COMMON  /TEMPS/   Tl ,  T2  ,  T3,  T4,  T5,  T6,  T7,  T8  ,  T9,  T10,  TINF, TSUR 
DIMENSION  TOLD (III,  JJJ,KKK)  , TNEW ( III,  JJJ,  KKK) 
CBBBBBBBBBBBBBBBBBBBBBBBBBBBB  BOTTOM  LAYER  BBBBBBBBBBBBBBBBBBBBBBBBBBBBE 

LAYER   =  1 
C  ****  BOTTOM  LAYER,  INNER  RADIUS  **** 

INCRAD  =  1 
RAD  =  RMIN 
C      ********  BOTTOM  LAYER,  INNER  RADIUS,  FIRST  PHI  ******** 
IPHI  =1 

Tl=TOLD  (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER+1) ) 
T3=TOLD ( INCRAD , NPHI , LAYER) 
T 4 =TOLD (INCRAD, (IPHI+1 ), LAYER) 
T5=TOLD ( ( INCRAD+1 ) , IPHI , LAYER) 
CALL  ECREI  (TEMP) 
TNEW ( INCRAD, IPHI , LAYER) =TEMP 
C      ********  BOTTOM  LAYER,  INNER  RADIUS,  MID-PHIS  ******** 
DO  100  IPHI=2, (NPHI-1) 

Tl=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER+1)) 
T3=TOLD (INCRAD, (IPHI-1) , LAYER) 
T4=TOLD (INCRAD, ( IPHI+1 ), LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL  ECREI  (TEMP) 
TNEW (INCRAD, IPHI, LAYER) =TEMP 
100        CONTINUE 

C      ********  BOTTOM  LAYER,  INNER  RADIUS,  LAST  PHI  ******** 
IPHI=NPHI 
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T1=T0LD (INCRAD, IPHI, LAYER) 

T2=T0LD(INCRAD, IPHI, (LAYER+1)) 

T3=T0LD (INCRAD, (IPHI-1) , LAYER) 

T4=T0LD (INCRAD, 1, LAYER) 

T5=T0LD ( ( INCRAD+1 ) , IPHI , LAYER) 

CALL  ECREI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER) =TEMP 
c  ********  BOTTOM  LAYER,  MID-RADII  ******** 

DO  200  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  ( INCRAD- 1) *DR 
C  ********  BOTTOM  LAYER,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD ( INCRAD, NPH I, LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
C  ********  BOTTOM  LAYER,  MID  RADII,  MID-PHIS  ******** 

DO  300  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
300  CONTINUE 

C  ********  BOTTOM  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, 1, LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI,  LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
200        CONTINUE 

C  ****  OUTER  RADIUS  **** 

INCRAD  =  NODES 
RAD  =  RMAX 
C         ********  BOTTOM  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 
IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, NPHI, LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
c  ********  FIRST  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 
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DO  400  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPH I,  LAYER) 

T2  =  TOLD (INCRAD, IPH I, (LAYER+1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD (  ( INCRAD- 1) , IPHI,  LAYER) 

CALL  ECREO  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
400        CONTINUE 

C  ********  BOTTOM  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, 1, LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  MID -LAYERS  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

DO  50  0  LAYER=2, (NLAYER-1) 
C  ****  MID-LAYERS,  INNER  RADIUS  **** 

INCRAD  =  1 

RAD  =  RMIN 
C       ********  MID-LAYERS,  INNER  RADIUS,  FIRST  PHI  ******** 
IPHI=1 

Tl  «  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, (NPHI) , LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
C        ********  MID-LAYERS, INNER  RADIUS,  MID-PHIS  ******** 
DO  600  IPHI=2,NPHI 

Tl  -  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  =  TOLD (  (INCRAD  +  1) , IPHI,  LAYER) 

CALL  ECRMI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
600  CONTINUE 

C        ********  MID-LAYERS, INNER  RADIUS,  LAST  PHI  ******** 
IPHI=NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  =  TOLD (INCRAD, 1, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMI  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
C  ********  MID-LAYERS,  MID-RADII  ******** 
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DO  700  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 
c  ********  MID-LAYERS,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD ( INCRAD, NPHI, LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T7  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMM  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
c  ********  MID-LAYERS,  MID-RADII,  MID-PHIS  ******** 

DO  800  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T7  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMM  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
800  CONTINUE 

C  ********  MID-LAYERS,  MID-RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T5  =  TOLD (INCRAD, 1, LAYER) 

T6  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T7  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECRMM  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
7  00        CONTINUE 

C  ****  MID-LAYERS,  OUTER  RADII  **** 

INCRAD  =  NODES 
RAD  =  RMAX 
c  ********  MID-LAYERS,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TOLD (INCRAD, NPHI, LAYER) 

T5  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T6  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECRMO  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
c  ********  MID-LAYERS,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  900  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 
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T4    =    TOLD (INCRAD, (IPHI-1) , LAYER) 

T5    =    TOLD (INCRAD, (IPHI+1) , LAYER) 

T6    =    TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL    ECRMO     (TEMP) 

TNEW( INCRAD, IPHI, LAYER)     =    TEMP 
900  CONTINUE 

c  ********    MID-LAYERS,     OUTER   RADIUS, LAST    PHI    ******** 

IPHI    =    NPHI 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 

T2    =    TOLD (INCRAD, IPHI, (LAYER+1) ) 

T3    =   TOLD (INCRAD, IPHI, (LAYER-1) ) 

T4    =    TOLD (INCRAD, (IPHI-1) , LAYER) 

T5    =    TOLD ( INCRAD, 1, LAYER) 

T6    =    TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL    ECRMO     (TEMP) 

TNEW( INCRAD, IPHI, LAYER)     =    TEMP 
500  CONTINUE 

/^  rr\  rp  rp  rp  rp  fTi  rp  rp  rp  rp  rp  rpt  rp  rp  rr\  rp  rp  rTirp  rr>  rp  rri  rp  rp  rp  rp  rp  rri  rp       T^fXD        T    R  N^T**  D       'PT*  T1  T'T'  T1  ^*  ^T1  T1  T1  T1  HP  T*  T1  T1  T1  'P  T  T1  ^  T1  T1  T1  T  T1  rT1  T1  T1  T*  T1  T 

LAYER   =    NLAYER 

c  ****    T0P    LAYER,     INNER   RADIUS    **** 

INCRAD    =    1 

RAD    =    RMIN 
c  ********    T0P    LAYER,     INNER    RADIUS,     FIRST    PHI    ******** 

IPHI=1 

Tl=TOLD( INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER-1) ) 
T3=TOLD (INCRAD, NPHI, LAYER) 
T4=TOLD (INCRAD, (IPHI+1) , LAYER) 
T5=TOLD ( ( INCRAD+1 ) , IPHI , LAYER) 
CALL    ECREI     (TEMP) 
TNEW( INCRAD, IPHI , LAYER) =TEMP 
C  ********    T0P    LAYER,     INNER   RADIUS,    MID-PHIS    ******** 

DO    1000    IPHI=2, (NPHI-1) 

Tl=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER-1)) 
T3=TOLD (INCRAD, (IPHI-1) , LAYER) 
T 4 =TOLD (INCRAD, ( IPHI+1) , LAYER) 
T5=TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL    ECREI     (TEMP) 
TNEW( INCRAD, IPHI , LAYER) =TEMP 
1000  CONTINUE 

C  ********    T0P    LAYER,     INNER   RADIUS,     LAST    PHI    ******** 

IPHI=NPHI 

Tl=TOLD (INCRAD, IPHI, LAYER) 
T2=TOLD (INCRAD, IPHI, (LAYER-1)) 
T3=TOLD (INCRAD, (IPHI-1) , LAYER) 
T4=TOLD (INCRAD, 1, LAYER) 
T5=TOLD ( ( INCRAD+1 ) , IPHI , LAYER) 
CALL    ECREI     (TEMP) 
TNEW ( INCRAD, IPHI , LAYER) =TEMP 
C  ****    TOP    LAYER,    MID    RADII    **** 

DO    1100    INCRAD=2, (NODES-1) 
RAD    =    RMIN    +     (INCRAD-1) *DR 
C  ********    T0P    LAYER,    MID-RADII,     FIRST    PHI    ******** 

IPHI    =    1 
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Tl  =  TOLD ( INCRAD, IPH I, LAYER) 

T2  =  TOLD (INCRAD, IPHI, ( LAYER- 1) ) 

T3  =  TOLD (INCRAD, NPHI, LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  =  TOLD ( (INCRAD  +  1) , IPHI,  LAYER) 

CALL  ECREM  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

C  ********  Top  LAYER,  MID  RADII,  MID-PHIS  ******** 

DO  1200  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 
T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 
T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 
CALL  ECREM  (TEMP) 
TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

12  0  0  CONTINUE 

c  ********  T0P  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD ( INCRAD, 1, LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  ECREM  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

1100       CONTINUE 

C  ****  TOp  LAYER,  OUTER  RADIUS  **** 

INCRAD  =  NODES 
RAD  =  RMAX 

c  ********  T0P  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TOLD (INCRAD, NPHI, LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C  ********  T0P  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  1300  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T4  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  ECREO  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

1300       CONTINUE 

c  ********  T0P  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
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T2  =  TOLDdNCRAD,  IPHI,  ( LAYER- 1)  ) 
T3  =  TOLDdNCRAD,  (IPHI-1)  ,  LAYER) 
T4  =  TOLDdNCRAD,  1,  LAYER) 

T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 
CALL  ECREO  (TEMP) 

TNEW(INCRAD, IPHI, LAYER)  =  TEMP 
998    RETURN 

END 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

C      ECREI  FORTRAN  A  -  (REV.  11/14/88) 

n  a***************************************************************** 

C  *  ECREI  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT      * 

C  *  THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)       * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  *  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.                                               * 

Q  ****************************************************************** 

C      PROGRAM  LINE  631 

SUBROUTINE  ECREI  (TNEW) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 
COMMON  /MATSIZ/  NLAYER, NODES, NPHI 
COMMON  /NPOSIT/  INCRAD, IPHI , LAYER 
COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 
COMMON  /TEMPS/   Tl, T2 , T3, T4 , T5, T6, T7 , T8 , T9, T10 , TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

HE  =  HSUBS 

EPSE  =  EPSUBS 
ELSEIF  ( LAYER. EQ. NLAYER)  THEN 

Q  =  QPSUBN 

HE  =  HSUBN 

EPSE  =  EPSUBN 
END  IF 

Dl  =  DKP*DZ**2/ (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2  =  DKR* (RAD+DR/2) *DZ**2/ (DKZ* (RAD+DR/4) *DR**2) 
D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*FO*(D3*(HE  +  D5*EPSE)  +  D4* (HSUBI  +  D5*EPSUBI)) 
C 

TNEW  =  1/D6*  (Tl+2*FO* (  (T2-T1)  +  Dl* (T3+T4-2*T1 )  +  D2*(T5-T1) 
1+  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 
2+  D4* (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR) ) ) 
C 
998    RETURN 


END 
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csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      ECREM  FORTRAN  A  -  (REV.  11/14/88) 

Q  ****************************************************************** 

C  *  ECREM  -  THIS  SUBROUTINE  COMPUTES  THE  TEMPERATURES  OF  THE  MID-   * 

C  *  RADIAL  NODES  FOR  THE  END  LAYERS  (NORTH,  SOUTH)           * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  *  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.                                               * 

Q  ****************************************************************** 

C      PROGRAM  LINE  67  8 

SUBROUTINE  ECREM  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR,DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 
ELSEIF  ( LA YER.EQ. NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 
END  IF 

Dl  =  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 
D2  =  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 
D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
D4  =  DZ/DKZ 

D5  =  SIGMA* (Tl+TSUR) * (Tl* *2+TSUR**2 ) 
D6  =  1  +  2*FO*D4*  (HE+D5*EPSE) 

TNEW  =  1/D6MT1  +  2*FO*  (  (T2-T1)  +  Dl*  (T3+T4-2*T1 )  +  D2*(T5-T1) 
1+  D3MT6-T1)  +  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR)  )  ) 
998    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      ECREO  FORTRAN  A  -  (REV.  11/14/88) 

Q  ****************************************************************** 

C  *  ECREO  -  THIS  SUBROUTINE  COMPUTES  THE  NODE  TEMPERATURES  AT  * 

C  *  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  *  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C      PROGRAM  LINE  721 

SUBROUTINE  ECREO  (TNEW) 
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IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI , NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2 , T3, T4, T5, T6, T7 , T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
EPSE  =  EPSUBS 
HE  =  HSUBS 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 
Q  =  QPSUBN 
EPSE  =  EPSUBN 
HE  =  HSUBN 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*FO*(  D3* (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO) ) 
C 

TNEW  =  1/D6MT1  +  2*FO*  (  (T2-T1)  +  (T3+T4-2*T1)  +  D2*(T5-T1) 

1+  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2+  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) ) 
C 
998    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      ECRMI  FORTRAN  A  -  (REV.  11/14/88) 

Q  ****************************************************************** 

C  *  ECRMI  -  THIS  SUBROUTINE  COMPUTES  THE  NODE  TEMPERATURES  AT  * 

C  *  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYER- 1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  *  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C      PROGRAM  LINE  7  67 

SUBROUTINE  ECRMI  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 

COMMON  /TEMPS/  Tl , T2 , T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

C  ***  BODY  *** 
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Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6    =    1    +    FO*D3* (HSUBI+D5*EPSUBI) 
C 

TNEW   =    1/D6MT1    +    FO*  (  (T2+T3-2*T1)     +    Dl*  (T4+T5-2*T1)     +    D2*(T6-T1) 

1+    D3MQPSUBI    +    HSUBI*TINF    +    D5*EPSUBI*TSUR)  )  ) 
C 

9  98  RETURN 

END 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      ECRMM  FORTRAN  A  -  (REV.  11/14/88) 

Q  ****************************************************************** 

C  *  ECRMM  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  MID-RADII  OF  THE   MID-LAYERS  (2  THRU  NLAYER-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  THE  EXPLICIT  METHOD  * 

C  *  OF  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C      PROGRAM  LINE  801 

SUBROUTINE  ECRMM  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
C      ***  NO  D4,  D5  OR  D6  REQUIRED  *** 

TNEW  =  Tl  +  FO*  (  (T2+T3-2*T1)  +  Dl*  (T4+T5-2*T1)  +  D2*(T6-T1) 

1+  D3* (T7-T1) ) 
C 
998    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      ECRMO  FORTRAN  A  -  (REV.  11/14/88) 

Q  ****************************************************************** 

C  *  ECRMO  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C      PROGRAM  LINE  832 
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SUBROUTINE  ECRMO  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  -  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR*(RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  FO*D3* (HSUBO  +  D5*EPSUBO) 

TNEW  =  1/D6MT1  +  FO*  (  (T2+T3-2*T1)  +  Dl*  (T4+T5-2*T1)  +  D2*(T6-T1) 

1+  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) ) 
C 

998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      MAP122  FORTRAN  A  -  (REV.  10/04/88) 

Q  ********************************************************* 

C      *  MAP122  -  SUBROUTINE  TO  MAP  MATRIX  ONE  ONTO  MATRIX  TWO  * 

Q  ********************************************************* 

C      PROGRAM  LINE  8  61 

SUBROUTINE  MAP122  (DMAT1 , DMAT2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

DIMENSION  DMAT1 (III, JJJ,KKK) , DMAT2 ( III, JJJ, KKK) 

DO  100  LAYER=1, NLAYER 

DO  200  IPHI=1,NPHI 

DO  300  INCRAD=1, NODES 

DMAT2 (INCRAD, IPHI,  LAYER)  =  DMAT1 ( INCRAD, IPHI , LAYER) 
300  CONTINUE 

2  00        CONTINUE 
100    CONTINUE 
998    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      SHTFRM  FORTRAN  A  -  (REV.  11/14/88) 

Q  ************************************************************** 

C      *  SHTFRM  -  SUBROUTINE  TO  PRINT  THE  TEMPERATURES  OF  A  DESIG-   * 
C      *  DESIGNATED  NODE  FROM  A  DATA  FILE.  * 

Q  ************************************************************** 

C      PROGRAM  LINE  884 

SUBROUTINE  SHTFRM  (L,M,N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
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COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO  COMMON  /TIMES/ 

DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION  TEMP (15, 15,  15) 

OPEN(UNIT=13,FILE=*ANALYT' ) 

OPEN (UNIT=14,FILE='ECRDAT' ) 

OPEN(UNIT=15,FILE='ECRSHT' ) 
C      READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES, NPHI,NLAYER 
C      WRITE  HEADERS  TO  DATA  FILE  15  (ERROR) 

WRITE  (15,*)   'EXPLICIT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION 

1' 

WRITE  (15,*) 

WRITE  (15,*)   'DATA  SAVED  AS  FILE:' 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) :', NODES, NPHI, NLAY 

1ER 

WRITE  (15,*) 

WRITE  (15,*)   'SELECTED  NODE  FOR  PRINTOUT :', L, M, N  WRITE  (15,*) 

WRITE  (15,*)  'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :*, DTMAX  WRITE 

(15,*) 

WRITE  (15,*)   'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (15,*) 

WRITE  (15,*)   'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 

(15,*) 

WRITE  (15,*)  'OUTER  SURFACE  HEAT  FLUX  (W/M**2) :', QPSUBO  WRITE 

(15,*) 

WRITE  (15,*) 

WRITE  (15,15) 
15     FORMAT  (T33,'NODE') 

WRITE  (15,25) 
25     FORMAT  (T5, ' TIME ', T17 , 'DELTIM ', T30, ' TEMPERATURE ' ) 

C      READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  (*DATA) 
2      READ  (14, *,END=998)  TIME, DELTIM 

DO  100  K=1,NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14, *,END=997)  TEMP (I, J, K) 
300  CONTINUE 

20  0        CONTINUE 
100    CONTINUE 

WRITE  (15,55)  TIME, DELTIM, TEMP (L,M,N) 
55         FORMAT  (Tl, F9 . 2, T15, F8 . 4, T26, F14 . 8) 

GOTO  2 

997  WRITE  (*,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864* 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864* 

998  CLOSE  (13) 
CLOSE  (14) 
CLOSE  (15) 
RETURN 
END 

C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      LNGFRM  FORTRAN  A  -  (REV.  11/05/88) 
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Q  ************************************************************ 

C      *  LNGFRM  -  SUBROUTINE  TO  PRINT  FULL  MATRIX  OF  TEMPERATURES  * 
C      *  FROM  DATA  FILES.  * 

Q  ************************************************************ 

C      PROGRAM  LINE  948 

SUBROUTINE  LNGFRM 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION  TEMP (15, 15, 15) 

OPEN  (UNIT=11,FILE='ECRLNG') 

OPEN  (UNIT=14,FILE=,ECRDAT') 

READ  (14,*)  NODES, NP HI, NLA YER 

WRITE  (15,*)   'EXPLICIT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION 

1' 

WRITE  (15,*) 

WRITE  (15,*)  'DATA  SAVED  AS  FILE:' 

WRITE  (15,*) 

WRITE  (15,*)  'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (11,*)  'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS ):', NODES , NPHI , NLA 

IYER 

WRITE  (11,*) 

WRITE  (11,*)   'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 
(11,*) 

WRITE  (11,*)  'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (11,*) 

WRITE  (11,*)   'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 
(11,*) 

WRITE  (11,*)   'SURFACE  HEAT  FLUX  (W/M* *2 ):', QPSUBO  WRITE  (11,*) 

WRITE  (11,*) 
1      READ  (14, *,END=998)  TIME,DTIME 

DO  100  K=1,NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14, *,END=997)  TEMP (I, J, K) 
300  CONTINUE 

200        CONTINUE 
100    CONTINUE 

CALL  PRTMAT  (TIME, DTIME, TEMP, NODES, NPHI, NLAYER) 

GOTO  1 
9  97    WRITE (11,*)   'LNGFRM  -  EOF  READ  ERROR  IN  PROGRAM  LINE  712' 

WRITE (*,*)   'LNGFRM  -  EOF  READ  ERROR  IN  PROGRAM  LINE  712' 
998    REWIND  14 

CLOSE  (11) 

RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      PRTMAT  FORTRAN  A  -  (REV.  11/04/88) 

Q  ********************************************************** 

C      *  PRTMAT  -  SUBROUTINE  TO  PRINT  THREE  DIMENDIONAL  MATRIX   * 
C      *  TO  FILE  11  (*LONG) .  * 

Q  ********************************************************** 

C      PROGRAM  LINE  1000 
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SUBROUTINE  PRTMAT  (TIME, DTIME, DMAT, NODES, NPHI , NLAYER)  IMPLICIT 

DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT (15, 15, 15) 

WRITE  (11,15)  TIME, DTIME 
15     FORMAT  (Tl, 'TIME  =  ',F9.3,*  SEC ', T30, ' TIME  INCREMENT  =  ',F9.3,'  SE 

1C) 

DO  100  K=l, NLAYER 

WRITE(11,10)  K 
10        FORMAT  (//Tl, 'NODE: ',T45, 'LAYER  NUMBER:  ',14/)  DO  200  1=1, NODES 

WRITE  (11,25)  I, (DMAT(I, J,K) , J=1,NPHI) 
25  FORMAT  (Tl, 13, T10, 4 (D16 . 10, IX) ) 

200       CONTINUE 
100    CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 

9  98    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      PRTARR  FORTRAN  A  -  (REV.  11/04/88) 

Q  ********************************************************** 

C      *  PRTARR  -  SUBROUTINE  TO  PRINT  THREE  DIMENDIONAL  MATRIX   * 
C      *  TO  FILE  11  (*LONG) .  * 

Q  ********************************************************** 

C      PROGRAM  LINE  1027 

SUBROUTINE  PRTARR  (TIME, DTIME, DMAT, NODES, NPHI, NLAYER) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT(15,15, 15) 

WRITE  (11,15)  TIME, DTIME 
15     FORMAT  (Tl, 'TIME  =  ',F9.3,'  SEC ', T30, ' TIME  INCREMENT  =  ',F9.3,'  SE 

1C) 

DO  100  K=l, NLAYER 

WRITE(11,10)  K 

10  FORMAT  (//Tl, 'NODE: ',T45, 'LAYER  NUMBER:  ',14/)  DO  200  1=1, NODES 
WRITE  (11,25)  I, (DMAT(I, J,K) , J=1,NPHI) 

25  FORMAT  (Tl , 13, T10, 4 (D16 . 10, IX) ) 

200       CONTINUE 
100    CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 
998    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      ERROR  FORTRAN  A  -  (REV.  11/05/88) 

Q  ************************************************************** 

C      *  ERROR  -  SUBROUTINE  TO  COMPUTE  ERROR  FOR  AND  PRINT  TEMPERA-  * 
C      *  TURES  OF  A  DESIGNATED  NODE  FROM  A  VALIDATION  DATA   * 

C      *  FILE.  * 

C      PROGRAM  LINE  1025 

SUBROUTINE  ERROR  (L,M,N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
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COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS , QPSUBI ,  QPSUBO 

COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION  TEMP (15, 15, 15) 

OPEN(UNIT=13,FILE='ANALYT' ) 

OPEN(UNIT=14,FILE='ECRDAT' ) 

OPEN(UNIT=15,FILE='ECRERR' ) 

IF  ( ( (QPSUBO. GT. 1352) .AND. (QPSUBO . LT . 1354 ) ) .OR. ( (QPSUBO . GT . 14 999 ) 

LAND.  (QPSUBO.  LT  .  15001)  )  )  THEN 

CONTINUE 

ELSE 

GOTO  998 

ENDIF 
C      READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES , NPHI , NLAYER 
C      WRITE  HEADERS  TO  DATA  FILE  15  (ERROR) 

WRITE  (15,*)  'EXPLICIT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION 

1' 

WRITE  (15,*) 

WRITE  (15,*)   'DATA  SAVED  AS  FILE:' 

WRITE  (15,*) 

WRITE  (15,*)   'CPU  TIME:' 

WRITE  (15,*) 

WRITE  (15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) :', NODES, NPHI, NLAY 

1ER 

WRITE  (15,*) 

WRITE  (15,*)   'SELECTED  NODE  FOR  COMPARISON: ', L, M, N  WRITE  (15,*) 

WRITE  (15,*)   'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 
(15,*) 

WRITE  (15,*)   'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (15,*) 

WRITE  (15,*)   'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):   ' , FO  WRITE 
(15,*) 

WRITE  (15,*)   'OUTER  SURFACE  HEAT  FLUX  (W/M**2 ):', QPSUBO  WRITE 
(15,*) 

WRITE  (15,*) 

WRITE  (15,15) 
15     FORMAT  (T33,  'NODE', T48,  'ANALYTIC, T64,  'PERCENT' )  WRITE  (15,25) 
25     FORMAT  (T5, 'TIME' ,T17, 'DELTIM', T30, 'TEMPERATURE' ,T46, 'TEMPERATURE' 

1,T65, 'ERROR'/) 
C      READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  (*DATA)  2 

READ  (14, *,END=998)  TIME, DELTIM 

DO  100  K=l, NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14, *,END=995)  TEMP (I, J, K) 
300  CONTINUE 

200        CONTINUE 
100    CONTINUE 

C      READ  IN  APPROPRIATE  ANALYTIC  SOLUTIONS  FROM  FILE  13  (ANALYT) 
3  IF  (QPSUBO. LT. 1400 . )  THEN 

READ  (13, 35,END=996)  EXACT 
35  FORMAT  (T19,F14.8) 

ELSE 

READ  (13, 45,END=997)  EXACT 
45  FORMAT  (T39,F14.8) 

ENDIF 
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C      COMPUTE  PERCENT  ERROR  AND  WRITE  TO  FILE  15  (ERROR) 
PE  =  (EXACT-TEMP (L,M,N) ) /EXACT  *  100. 
WRITE  (15,55)  TIME, DELTIM, TEMP (L,M,N) , EXACT, PE 
55         FORMAT  (Tl, F9 . 2, T15, F8 . 4, T26, F14 . 8, T41, F14 . 8, T61, F9 . 3) 
GOTO  2 

995  WRITE  (*,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  652' 
WRITE  (15,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  652' 

996  WRITE  (*,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  658' 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  658' 

997  WRITE  (*,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  661' 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  661' 

998  REWIND  14 
CLOSE  (13) 
CLOSE  (15) 
RETURN 
END 
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APPENDIX  F 
BRIANS  METHOD  CODE 


C  BCR  FORTRAN  A  -  (REV.  12/08/88) 

C  SATELLITE  MODEL  -  VALIDATED  12/08/88 

C  FOR  FORTVS  APPLICATION  ONLY 

C  TO  EXECUTE  TYPE  'LOAD  BCR  TIMER  (START1 

Q  ********************************************************** 

C  *  BCR  -  PROGRAM  TO  COMPUTE  NODE  TEMPERATURES  FOR  A  RIGHT  * 

C  *        CIRCULAR  CYLINDER  SUBJECTED  TO  CONVECTIVE  AND/OR  * 

C  *        RADIATIVE  BOUNDARY  CONDITIONS  USING  BRIAN'S       * 

C  *        METHOD  OF  FINITE  DIFFERENCE  ANALYSIS.  * 

H  ********************************************************** 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  TOLD (15, 15, 15) ,TNEW(15, 15, 15) 
DIMENSION  TSTAR(15, 15, 15) ,T2STAR(15, 15,15) 
DIMENSION  T3STAR(15, 15, 15) 
COMMON  /ARRSIZ/  III,JJJ,KKK 
COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS,  QPSUBI,  QPSUBO 
COMMON  /MATSIZ/  NODES, NPHI, NLAYER 
COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI,  EPSUBO,  SIGMA 
COMMON  /TEMPS/   Tl, T2 , T3, T4, T5, T6, T7, T8, T9, T10 , TINF, TSUR 
COMMON  /TIMES/   DELTIM, DTMAX, FINTIM, LIMIT 
C      START  TIMER 
CALL  STIME 

OPEN  (UNIT=11,FILE='BCRLNG' ) 
OPEN  (UNIT=14,FILE='BCRDAT' ) 
OPEN  (UNIT=15,FILE='BCRCPU' ) 
C***********************  USER  DEFINED  VARIABLES 
DELTIM  =  120 .0D+00 
FINTIM  =  3000. D+00 

=  1 

MATRIX  DIMENSIONS 

=  10 

=  4 

=  5 
SPECIFICATION  FOR  FILE  ESHORT 

=  10 

=  2 
3 
ARRAY  DIMENSIONS 


************************ 


IPRINT 

ACTUAL 

NODES 

NPHI 

NLAYER 

NODE 

MRAD 

MPHI 

MLAYER  = 

DECLARED 

III  =  15 

JJJ  =  15 

KKK  =  15 

ABSORPTIVITY  COEFFICIENTS 
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ALFAN  =  0.4D+00 

ALFAS  =  0.4D+00 

ALFAO  =  0.4D+0  0 

ALBEDO  COEFFICIENT 

ALBEDO  =  0.30D+00 

THERMAL  CONDUCTIVITIES 

DKR  =  177.D+00 

DKP  =  177.D+00 

DKZ  =  177.D+00 

EMISSIVITIES 

EPSUBN  =  0.9D+00 

EPSUBS  =  0.9D+00 

EPSUBI  =  O.D+00 

EPSUBO  =  0.9D+00 

CONVECTION  COEFFICIENTS 

HSUBN  =  O.D+00 

HSUBS  =  O.D+00 

HSUBI  =  O.D+00 

HSUBO  =  O.D+00 

HEAT  FLUXES 

SOLAR  =  1353. D+00 

EIR    =  238.0D+00 

GEN  =  1000. 

QPSUBI  =  O.D+00 

QPSUBO  =  O.D+00 

QPSUBN  =  O.D+00 

QPSUBS  =  O.D+00 

GEOMETRY 

RMIN  =  0.15244D+00 

RMAX  =  0.22866D+00 

ZMAX  =  1  .D+00 

VIEW  FACTORS  WITH  THE  EARTH 

VERTHN  =  O.D+00 

VERTHS  =  1.D+00 

VERTHI  =  O.D+00 

VERTHO  =  O.D+00 

VIEW  FACTORS  WITH  SPACE 

VSPCN  =  1  .D  +  00 

VSPCS  =  O.D+00 

VSPCI  =  O.D+00 

VSPCO  =  1.D+00 

TEMPERATURES 

TABS   =  273. D+00 

TINIT  =  293. D+00 

TINF   =  O.D+00 

TSUR   =  4. D+00 

MATERIAL  PROPERTIES 

CSUBP  =  875.0D+00 

RHO    =  2270.0D+00 

INITIALIZE  OTHER  VARIABLES 

ICOUNT  =  0 

ITIME   =  0 

ORBTIM  =  O.D+00 

PI      =  4 .0D+00*DTAN(l.D+00) 

RAD     =  RMIN 
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SIGMA   =  5.67D-08 

TIME    =  O.D+00 

Tl      =  O.D+00 
C      INITIALIZE  MATRICES 

CALL  BMINIT  (TOLD, TINIT) 

CALL  BMINIT  (TSTAR, TINIT) 

CALL  BMINIT  (T2STAR, TINIT) 

CALL  BMINIT  (T3STAR, TINIT) 

CALL  BMINIT  (TNEW, TINIT) 
C      SURFACE  AREA  CALCULATIONS 

SAREAN  =  PI*(RMAX**2  -  RMIN**2) 

SAREAS  =  PI*(RMAX**2  -  RMIN**2) 

SAREAI  =  PI* (2*RMIN) *ZMAX 

SAREAO  =  PI* (2*RMAX) *ZMAX 
C      INITIAL  CALCULATIONS 

ALFA  =  DKZ/ (RHO*CSUBP) 

DPHI  =  2.*PI/NPHI 

DR  =  (RMAX-RMIN) / (NODES-1) 

DZ  =  ZMAX/ (NLAYER-1) 

LPHI  =  360/NPHI 

QPSUBI  =  GEN/SAREAI 
C      ORBITAL  PARAMETERS 

PERIOD  =  5440. D+00 

ECLIPS  =  2181.9D+00 

OMEGA  =  1.155D-03 

TAU  =  0.01*PERIOD/4 

TIME1  =  O.D+00 

TIME2  =  PERIOD/4. D+00 

TIME3  =  107.8D+00/360  *  PERIOD 

TIME4  =  (270  -  17.8) /360  *  PERIOD  -  4*TAU 

TIME5  =  (270  -  17.8) /360  *  PERIOD 

TIME6  =  270/360  *  PERIOD 
C      ESTABLISH  EXPLICIT  STABILITY  REQUIREMENT  (FOR  REFERENCE  ONLY) 

CALL  STABIL  (DTMAX) 

FO  =  ALFA*DELTIM/ (DZ**2) 

LIMIT  =  FINTIM/DELTIM  +  500 
C      WRITE  MATRIX  DIMENSIONS  TO  FILE  14  (BCRDAT) 

WRITE  (14,*)  NODES, NPHI,NLAYER 
C 

C      ***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 
C  PRINT  INTERVAL.   USE  FOR  LONG  PERIOD  EVALS . 

WRITE  (11,*)   'BCRSAT' 

WRITE  (11,*) 

WRITE  (11,888) 
888    FORMAT  (Tl,  'TIME',T15,  'DELTIM ' , T25,  ' LAYER1 *  ,  T40,  ' LAYER3 '  ,  T55,  '  LAYE 

1R') 

WRITE  (11,*) 
C 

CMMMMMMMMMMMMMMMMMMM  BEGIN  TEMPERATURE  COMPUTATIONS  MMMMMMMMMMMMMMMMMMMM 
C      START  CLOCK  TIMER  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

WRITE  (11,*)  'ENTERING  LOOP  TIME' 

CALL  GTIME  (1,  11) 

DO  100  1=1, LIMIT 

ICOUNT=ICOUNT+l 
TIME=TIME+DELTIM 
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ORBTIM  =  ORBTIM  +  DELTIM 

IF  (ORBTIM. GE. PERIOD)  ORBTIM  =  ORBTIM  -  PERIOD 
C      SURFACE  FLUX  CALCULATIONS  (TIME  DEPENDENT) 

IF  ( (ORBTIM. GE.O) .AND. (ORBTIM. LE.TIME2) )  THEN 
QPSUBN  =  ALFAN*SOLAR*DCOS (OMEGA*ORBTIM) 

QPSUBS  =  ALFASMEIR  +  ALBEDO* SOLAR*DCOS  (OMEGA*ORBTIM)  ) 
QPSUBO  =  0.5*ALFAO*SOLAR*DSIN(OMEGA*ORBTIM) 
ELSEIF  ( (ORBTIM.GT.TIME2) .AND. (ORBTIM. LE . TIME3) ) THEN 
QPSUBN  =  0. 

QPSUBS  =  ALFASMEIR  +  (ALBEDO+DCOS (OMEGA*ORBTIM) ) *SOLAR) 
QPSUBO  =  0.5*ALFAO*SOLAR*DSIN(OMEGA*ORBTIM) 
ELSEIF  ( (ORBTIM . GT . TIME3 ) . AND . (ORBTIM . LE . TIME4 ) )  THEN 
QPSUBN  =  0. 
QPSUBS  =  ALFAS*EIR 
QPSUBO  =  0.D+00 
ELSEIF  ( (ORBTIM. GT.TIME4) .AND. (ORBTIM. LE.TIME5) )  THEN 
QPSUBN  =  0.D+00 
QPSUBS  =  ALFASMEIR 
1  +  DABS (ALBEDO*SOLAR*DSIN(OMEGA*ORBTIM) ) 

1  Ml-DEXP  (MORBTIM-TIME4) /TAU)  )  ) 

QPSUBO  =  0.5*ALFAO*DABS (ALBEDO*SOLAR 
1  +  DSIN(OMEGA*ORBTIM) 

1  Ml-DEXP  (-(ORBTIM-TIME4)  )  /TAU)  ) 

ELSEIF  ( (ORBTIM. GT.TIME5) .AND. (ORBTIM. LT.TIME6) )  THEN 
QPSUBN  =  0.D+00 
QPSUBS  =  ALFASMEIR 
1  +  DABS (ALBEDO*SOLAR*DSIN(OMEGA*ORBTIM) ) ) 

QPSUBO  =  0.5*ALFAO*DABS (SOLAR*DSIN(OMEGA*ORBTIM) ) 
ELSEIF  (ORBTIM. GT.TIME6)  THEN 

QPSUBN  =  ALFAN*DABS (SOLAR*DCOS (OMEGA* ORBTIM) ) 
QPSUBS  =  ALFASMEIR 
1  +  DABS (ALBEDO*SOLAR*DSIN(OMEGA*ORBTIM) ) ) 

QPSUBO  =  0.5*ALFAO*DABS (SOLAR*DSIN(OMEGA*ORBTIM) ) 
ENDIF 
C      CALL  MAIN  SUBROUTINES 

CALL  STEP1  (TOLD,TSTAR) 
C  WRITE  (11,*)   'TSTAR' 

C  CALL  PRTMAT  (TIME, DELTIM, TSTAR, NODES, NPHI, NLAYER) 

CALL  STEP2  (TOLD, TSTAR, T2STAR) 
C  WRITE  (11,*)   'T2STAR' 

C  CALL  PRTMAT  (TIME, DELTIM, T2STAR, NODES, NPHI, NLAYER) 

CALL  STEP3  (TOLD, TSTAR, T2STAR, T3STAR) 
C  WRITE  (11,*)   'T3STAR' 

C  CALL  PRTMAT  (TIME, DELTIM, T3STAR, NODES, NPHI, NLAYER) 

CALL  STEP4  (TOLD, TSTAR, T2STAR, T3STAR, TNEW) 
C  WRITE  (11,*)   'TNEW' 

C  CALL  PRTMAT  (TIME, DELTIM, TNEW, NODES, NPHI, NLAYER) 

C      MAP  NEW  TEMPERATURE  MATRIX  ONTO  OLD  TEMPERATURE  MATRIX 

CALL  MAP122  (TNEW, TOLD) 
C 

C      ****  GENERATE  PRINTOUT  **** 
IF  (ICOUNT.GE.IPRINT)   THEN 
ICOUNT  =  0 

WRITE  (14,*)  TIME, DELTIM 
C      ****  CONVERT  TNEW  TO  EXCESS  TEMPERATURE  PRIOR  TO  PRINTING  **** 
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DO  2  00  LAYER=1,NLAYER 

DO  300  INCRAD=1, NODES 

DO  400  IPHI=1,NPHI 

TNEW(INCRAD, IPHI, LAYER)  =  TNEW ( INCRAD, IPHI , LAYER  1)  -  TINIT 
C  ****  PRINT  OPTION  1  -  USE  WITH  CMPSHT, COMPAR, LNGFRM, SHTFRM, BCRERR 
C  SHORT  EVALUATION  TIMES  ONLY  (<400  SEC) 

C  WRITE  (14,*)  TNEW (INCRAD, IPHI, LAYER) 

400  CONTINUE 

300  CONTINUE 

200  CONTINUE 

C 

C      ***  PRINT  OPTION  2  -  SAVES  COMPLETE  MATRIX  AT  SPECIFIED  PRINT 
C  INTERVAL  -  SWITCH  OFF  ALL  SUBROUTINES  LISTED 

C  UNDER  PRINT  OPTION  1  FIRST. 

C  WRITE  (11,*)  'BCR  SATELLITE  MODEL' 

C  WRITE  (*,*) 

C  CALL  PRTMAT  (TIME, DELTIM, TNEW, NODES, NPHI, NLAYER) 

C 

C      ***  PRINT  OPTION  3  -  SAVES  DESIGNATED  NODE  TEMPS  AT  SPECIFIED 
C  PRINT  INTERVAL.   USE  FOR  LONG  PERIOD  EVALS . 

WRITE  (11,889)  TIME,DELTIM,TNEW(5, 1, 1) ,TNEW(5,  1,  3)  ,TNEW(5, 1, 5) 
889    FORMAT  (T1,F9.3,T15,F9.3,T25,F12.6,T40,F12.6,T55,F12.6) 
C 

c      ********  RE-SPECIFY  PRINT  INTERVALS  ******** 
C  IF  (TIME. GE. 99.9)  THEN 

C  IPRINT  =  200 

C  DELTIM  =  20. 

C  FO  =  ALFA*DELTIM/ (DZ**2) 

C  ELSEIF  (TIME. GE. 9. 9)  THEN 

C  IPRINT  =  100 

C  DELTIM  =  10. 

C  FO  =  ALFA*DELTIM/ (DZ**2) 

C  ELSEIF  (TIME.GE.0. 99)  THEN 

C  IPRINT  =  10 

C  DELTIM  =  1. 

C  FO  =  ALFA*DELTIM/ (DZ**2) 

C  END IF 

ENDIF 
C      TIME  INTERVAL  DELIMITER 

IF  (TIME.GE.FINTIM)  GOTO  101 

100  CONTINUE 

C      STOP  CLOCK  TIMER  (MAINFRAME  VERSIONS  OF  CODE  ONLY) 

101  CONTINUE 
CALL  GTIME  (1, 11) 

WRITE  (11,*)   'EXITED  LOOP' 

CLOSE  (14) 

CLOSE  (15) 

C      WRITE  APPROPRIATE  DATA  FILES 

C      CALL  CMPSHT 

C      CALL  SHTFRM  (MRAD,MPHI, MLAYER) 

C      CALL  COMPAR 

C      CALL  ERROR  (MRAD, MP HI, MLAYER) 

C      CALL  LNGFRM 

CALL  GTIME (1,  11) 

99  9    STOP 
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END 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      BMINIT  FORTRAN  A  -  (REV.  9/28/88) 

Q  ft************************************************************ 

C      *  BMINIT  -  SUBROUTINE  TO  INITIALIZE  TEMPERATURE  MATRIX  TO  A  * 
C      *  SPECIFIED  VALUE  (BRIAN'S  METHOD  ARRAY  FORMAT)      * 

Q  ************************************************************* 

C      PROGRAM  LINE  172 

SUBROUTINE  BMINIT  (DMAT,TINIT) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

DIMENSION  DMAT(III, JJJ,KKK) 

DO  100  LAYER=1,KKK 

DO  200  IPHI-1, JJJ 

DO  300  INCRAD=1,III 

DMAT (INCRAD, IPHI, LAYER)  =  TINIT 
300  CONTINUE 

200        CONTINUE 
100    CONTINUE 
998    RETURN 

END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      STABIL  FORTRAN  A  (REV.  11/14/88) 

Q  ************************************************************** 

C  *  STABIL  -  SUBROUTINE  TO  COMPUTE  THEORETICAL  MAXIMUM  TIME     * 

C  *  INCREMENT  ALLOWED  TO  MAINTAIN  STABILITY  IN  EXPLICIT  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  OF  A  CYLINDER  IN  3-D      * 

C  *  POLAR  CYLINDRICAL  COORDINATES.                         * 

Q  ************************************************************** 

C      PROGRAM  LINE  196 

SUBROUTINE  STABIL  (DTMAX) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DT(6) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI  COMMON 

/HEAT/    ALFA,FO,QPSUBN,QPSUBS,QPSUBI,QPSUBO  COMMON  /RADN/ 

EPSUBN,EPSUBS,EPSUBI,EPSUBO, SIGMA 
C  ***  BODY  *** 

DO  50  1=1, 6 

DT(I)  =  0.D+00 
50     CONTINUE 

DUMMY  =  (DZ**2)/ALFA 
C      END  LAYERS,  INNER  SURFACE  NODES 

DCREI  =  1  +  (2*DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

1+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
DT(1)  =  DUMMY/ (2*DCREI) 
DTMAX  =  DT (1) 
C      END  LAYERS,  MID-RADII  NODES 

DCREM  =  1  +  2* (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2 ) 

1+  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 
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2+  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
DT(2)  =  DUMMY/ (2*DCREM) 
C      END  LAYERS,  OUTER  SURFACE  NODES 

DCREO  =  1  +  2* (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI* *2 ) 
1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 
DT(3)  =  DUMMY/ (2*DCREO) 
C      MID-LAYERS,  INNER  SURFACE  NODES 

DCRMI  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
1+  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
DT(4)  =  DUMMY/DCRMI 
C      MID-LAYERS,  MID-RADII  NODES 

DCRMM  =  2  +  2* (DKP*DZ**2)/(DKZ*RAD**2*DPHI**2) 
1+  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2 ) 
2+  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
DT(5)  =  DUMMY/DCRMM 
C      MID-LAYERS,  OUTER  SURFACE  NODES 

DCRMO  =  2  +  2* (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 
1+  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DT(6)  =  DUMMY/DCRMO 
DO  100  1=1,6 

IF  (  (DT(I)  .GT.O)  .AND.  (DTMAX.GT .DT (I)  )  )  DTMAX  =  DT(I) 
WRITE  (*,*)  'FROM  STABIL,  I, DT  (I)  ' , I, DT  (I) 
100    CONTINUE 

IF  (DTMAX. LE.O)  WRITE  (*,*)  'STABIL  -  DTMAX  LE  ZERO' 
WRITE  (*,*)   'FROM  STABIL,  DTMAX  =', DTMAX 
998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      STEP1  FORTRAN  A  -  (REV.  10/12/88) 

Q  ************************************************************** 

C  *  STEP1  -  THIS  SUBROUTINE  CONSTRUCTS  THE  TEMPERATURE  MATRIX  * 

C  *  FOR  THE  FIRST  INTERMEDIATE  STEP  (STAR  LEVEL)  IN  * 

C  *  THE  Z  DIRECTION  OF  A  3-D,  POLAR-CYLINDRICAL  ADAP-  * 

C  *  TATION  OF  BRIAN'S  METHOD  OF  FINITE  DIFFERENCE  * 

C  *  ANALYSIS  FOR  A  RIGHT  CIRCULAR  CYLINDER  WITH  A  * 

C  *  SPECIFIED  INNER  SURFACE  TEMPERATURE  AND  CONSTANT  * 

C  *  OUTER  SURFACE  HEAT  FLUX.  * 

Q  ************************************************************** 

C      PROGRAM  LINE  259 

SUBROUTINE  STEP1  (TOLD, TSTAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/     Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR  D 

DIMENSION  TOLD (15, 15, 15) , TSTAR (15, 15, 15) 
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DIMENSION  AA<15) ,BB(15) ,CC(15) ,DD(15) , TEMP (15) 
CIIIIIIIIIIIIIIIIIIIIIIII  INNER  SURFACE  NODES  IIIIIIIIIIIIIIIIIIIIIIIIII 
INCRAD  =  1 
RAD  =  RMIN 
C 
c  ********  INNER  SURFACE,  FIRST  PHI  ******** 

IPHI  =  1 
c        ********  INNER  SURFACE,  FIRST  PHI,  BOTTOM  LAYER  ******** 
LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  -  TOLD ( INCRAD, NPHI, LAYER) 
T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA(LAYER) ,BB(LAYER) ,CC(LAYER) ,DD(LAYER) )  C 
C         ********  INNER  SURFACE,  FIRST  PHI,  MID-LAYERS  ******** 
DO  100  LAYER=2, (NLAYER-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, NPHI, LAYER) 
T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 
100    CONTINUE 
C 

c         ********  INNER  SURFACE,  FIRST  PHI,  TOP  LAYER  ******** 
LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, NPHI, LAYER) 
T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NLAYER, AA, BB, CC, DD, TEMP) 
DO  110  LAYER=1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
110  CONTINUE 

C 
C  ********  INNER  SURFACE, MID-PHIS  ******** 

DO  200  IPHI=2, (NPHI-1) 
C        ********  INNER  SURFACE,  MID-PHIS,  BOTTOM  LAYER  ******** 
LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER)  ,  DD (LAYER)  ) 
C 

C         ********  INNER  SURFACE,  MID-PHIS,  MID-LAYERS  ******** 
DO  210  LAYER=2, (NLAYER-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
210    CONTINUE 
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c 

c         ********  inner  SURFACE,  MID-PHIS,  TOP  LAYER  ******** 
LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 
T4  =  TOLD ( (INCRAD  +  1) , IPHI,  LAYER) 

CALL  BCREI1 (AA (LAYER)  ,  BB (LAYER) , CC (LAYER) , DD (LAYER)  ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NLAYER, AA, BB, CC, DD, TEMP) 
DO  230  LA YER=1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
230  CONTINUE 

C 

200    CONTINUE 
C 
c  ********  INNER  SURFACE,  LAST  PHI  ******** 

IPHI  =  NPHI 
C 

C         ********  INNER  SURFACE,  LAST  PHI,  BOTTOM  LAYER  ******** 
LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T3  =  TOLD (INCRAD, 1, LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1(AA( LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

c         ********  INNER  SURFACE,  LAST  PHI,  MID-LAYERS  ******** 
DO  30  0  LAYER=2, (NLAYER- 1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T3  =  TOLD (INCRAD, 1, LAYER) 
T4  =  TOLD  (  (INCRAD  +  1) , IPHI, LAYER) 

CALL  BCRMI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
300    CONTINUE 
C 

C         ********  INNER  SURFACE,  LAST  PHI,  TOP  LAYER  ******** 
LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
T3  =  TOLD (INCRAD, 1, LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI1 (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC, DD, TEMP) 
DO  350  LAYER=1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
350  CONTINUE 

C 
C 

CMMMMMMMMMMMMMMMMMMMMMMMMMM  MID-RADIUS  NODES  MMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  400  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 
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c  ********  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 
C 

c  ********  MID-RADII,  FIRST  PHI,  BOTTOM  LAYER  ******** 

LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD ( INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) )  C 
C  ********  MID-RADII,  FIRST  PHI,  MID-LAYERS  ******** 

DO  500  LAYER=2, (NLAYER-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) ,DD (LAYER) ) 
50  0        CONTINUE 
C 

c  ********  MID-RADII,  FIRST  PHI,  TOP  LAYER  ******** 

LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD (  (INCRAD+1) , IPHI,  LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC,DD, TEMP) 
DO  475  LAYER=1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
47  5  CONTINUE 

C 
C  ********  MID-RADII,  MID-PHIS  ******** 

DO  600,  IPHI=2, (NPHI-1) 
C 

C  ********  MID-RADII,  MID-PHIS,  FIRST  LAYER  ******** 

LAYER  =  1 

Tl  -  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI,  LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ********  MID-RADII,  MID-PHIS,  MID-LAYERS  ******** 

DO  7  00  LAYER=2, (NLAYER-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI,  LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 
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CALL  BCRMM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
700        CONTINUE 
C 

c  ********  MID-RADII,  MID-PHIS,  TOP  LAYER  ******** 

LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NLAYER, AA, BB, CC, DD, TEMP) 
DO  575  LA YER=1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
575  CONTINUE 

600        CONTINUE 
C 
C  ********  MID-RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 
C 

c  ********  MID-RADII,  LAST  PHI,  FIRST  LAYER  ******** 

LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ********  MID-RADII,  LAST  PHI,  MID-LAYERS  ******** 

DO  800  LAYER=2, (NLAYER- 1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD ( INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
800        CONTINUE 
C 

C  ********  MID-RADII,  LAST  PHI,  TOP  LAYER  ******** 

LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  -  TOLD ( (INCRAD-1) , IPHI, LAYER) 

T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM1  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 

C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NLAYER, AA, BB, CC, DD, TEMP) 

DO  67  5  LA YER=1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
675  CONTINUE 


119 


400    CONTINUE 

C 

COOOOOOOOOOOOOOOOOOOOOOOO  OUTER  SURFACE  NODES  OOOOOOOOOOOOOOOOOOOOOOOOOO 

INCRAD  =  NODES 

RAD  =  RMAX 

C 

C  ********  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 
C 

C         ********  OUTER  RADIUS,  FIRST  PHI,  BOTTOM  LAYER  ******** 
LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD ( INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

c         ********  OUTER  RADIUS,  FIRST  PHI,  MID-LAYERS  ******** 
DO  900  LAYER=2, (NLAYER-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRM01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
900        CONTINUE 
C 

C  ********  OUTER  RADIUS,  FIRST  PHI,  TOP  LAYER  ******** 

LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, NPHI, LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  *** 

CALL  TRIDAG  ( 1 , NLAYER, AA, BB, CC, DD, TEMP) 
DO  77  5  LAYER=1, NLAYER 

TSTAR( INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
77  5  CONTINUE 

C 
C  ********  OUTER  SURFACE,  MID-PHIS  ******** 

DO  1000  IPHI=2, (NPHI-1) 
C 

C         ********  OUTER  RADIUS,  MID-PHIS,  FIRST  LAYER  ******** 
LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  -  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE01  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ********  OUTER  RADIUS,  MID-PHIS,  MID-LAYERS  ******** 

DO  1100  LAYER=2, (NLAYER-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 
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T3  =  TOLD (INCRAD,  (IPHI  +  1)  , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRMOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD ( LAYER) ) 
110  0       CONTINUE 
C 

c  ********  OUTER  RADIUS,  MID-PHIS,  TOP  LAYER  ******** 

LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, (IPHI+1) , LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCREOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NLAYER, AA, BB, CC, DD, TEMP) 
DO  875  LA YER=1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
875  CONTINUE 

100  0       CONTINUE 
C 
c  ********  OUTER  SURFACE,  LAST  PHI  ******** 

IPHI  =  NPHI 
C 

c         ********  OUTER  RADIUS,  LAST  PHI,  BOTTOM  LAYER  ******** 
LAYER  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCREOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

c  ********  OUTER  RADIUS,  LAST  PHI,  MID-LAYERS  ******** 

DO  12  0  0  LAYER=2, (NLAYER- 1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD, (IPHI-1) , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRMOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
1200       CONTINUE 
C 

c  ********  OUTER  RADIUS,  LAST  PHI,  TOP  LAYER  ********* 

LAYER  =  NLAYER 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TOLD (INCRAD,  (IPHI-1)  , LAYER) 

T3  =  TOLD (INCRAD, 1, LAYER) 

T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCREOl  (AA (LAYER) , BB (LAYER) , CC (LAYER) , DD (LAYER) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NLAYER, AA, BB, CC, DD, TEMP) 
DO  97  5  LAYER=1, NLAYER 

TSTAR (INCRAD, IPHI, LAYER)  =  TEMP (LAYER) 
975  CONTINUE 

998    RETURN 
END 
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c 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C      STEP2  FORTRAN  A  -  (REV.  10/18/88) 

Q  ****************************************************** 

C      *  STEP2  -  SECOND  INTERMEDIATE  STEP  (PHI  DIRECTION)    * 
C      *  OF  BRIAN'S  METHOD  OF  FINITE  DIFFERENCE      * 

C      *  ANALYSIS  FOR  A  RIGHT  CIRCULAR  CYLINDER.     * 

Q  ****************************************************** 

C      PROGRAM  LINE  614 

SUBROUTINE  STEP2  (TOLD, TSTAR, T2 STAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI,  QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

DIMENSION  TOLD'(15,  15,  15)  ,TSTAR(15,  15,  15)  ,T2STAR(15,  15,  15) 

DIMENSION  AA(15),BB(15),CC(15),DD(15) , TEMP (15) 

C 

Cllllllllllllllllllllllllllll  FIRST  LAYER  111111111111111111111111111111 

LAYER   =  1 

C 

C  ********  FIRST  LAYER,  INNER  RADIUS  ******** 

INCRAD  =  1 

RAD  =  RMIN 

DO  100  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI,  LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI2  (AA (IPHI) , BB (IPHI) , CC ( IPHI) , DD ( IPHI) ) 
100    CONTINUE 
C 
C  ****  CONVERT  TO  TRID I AGONAL  FORM  **** 

BB ( 1 )  =  BB ( 1 ) +AA ( 1 ) 

AA(1)  =  0.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 

CC(NPHI)  =  0.D+00 
C 
C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC,DD, TEMP) 

DO  150  IPHI=1,NPHI 

T2STAR (INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 
150        CONTINUE 
C 
C  ********  FIRST  LAYER,  MID-RADII  ******** 

DO  200  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 
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DO  300  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 
T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM2  (AA ( IPHI) , BB (IPHI) , CC (IPHI) , DD (IPHI ) ) 
300        CONTINUE 
C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB(1)  =  BB(1)+AA(1) 
AA(1)  =  0.D+00 

BB(NPHI)  =  BB(NPHI)+CC(NPHI) 
CC(NPHI)  =  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC, DD, TEMP) 
DO  375  IPHI=1,NPHI 

T2STAR( INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 
375        CONTINUE 
200    CONTINUE 
C 

c  ********  FIRST  LAYER,  OUTER  RADIUS  ******** 

INCRAD  =  NODES 
RAD  =  RMAX 
DO  400  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRE02  (AA ( IPHI) , BB (IPHI) , CC (IPHI) , DD (IPHI) ) 
4  00        CONTINUE 
C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB ( 1 )  =  BB ( 1 ) +AA ( 1 ) 
AA(1)  =  0.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 
CC(NPHI)  =  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI , AA, BB, CC, DD, TEMP) 
DO  475  IPHI=1,NPHI 

T2STAR( INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 
475        CONTINUE 
C 

CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  MID-LAYERS  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  500  LAYER=2, (NLAYER-1) 
C 

C  ********  MID  LAYERS,  INNER  RADIUS  ******** 

INCRAD  =  1 
RAD  =  RMIN 
DO  600  IPHI=1,NPHI 

Tl  =  TOLD  (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
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T4  =  TSTAR(INCRAD, IPHI,  LAYER) 
T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMI2  (AA (IPHI) , BB (IPHI) , CC ( IPHI) ,DD ( IPHI ) ) 
600    CONTINUE 
C 

C  ****  CONVERT  TO  TRID I AGONAL  FORM  **** 

BB(1)  =  BB(1)+AA(1) 
AA(1)  =  0.D+00 

BB(NPHI)  =  BB(NPHI)+CC(NPHI) 
CC(NPHI)  =  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC, DD, TEMP) 
DO  675  IPHI=1,NPHI 

T2STAR(INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 
67  5        CONTINUE 
C 

c  ********  MID-LAYERS,  MID-RADII  ******** 

DO  700  INCRAD=2, (NODES-1) 
RAD=RMIN+ (INCRAD-1) *DR 
DO  800  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T4  =  TSTAR (INCRAD, IPHI, LAYER) 
T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 
T6  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCRMM2  (AA ( IPHI ), BB (IPHI)  , CC  (IPHI)  , DD (IPHI)  ) 
80  0        CONTINUE 
C 

C  ****  CONVERT  TO  TRID I AGONAL  FORM  **** 

BB(1)  =  BB(1)+AA(1) 
AA(1)  =  O.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 
CC(NPHI)  =  0.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NPHI , AA, BB, CC, DD, TEMP ) 
DO  875  IPHI=1,NPHI 

T2STAR (INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 
875        CONTINUE 
700    CONTINUE 
C 

C  ********  MID-LAYERS,  OUTER  RADIUS  ******** 

INCRAD  =  NODES 
RAD  =  RMAX 
DO  900  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T4  =  TSTAR (INCRAD, IPHI, LAYER) 
T5  =  TOLD ( (INCRAD-1) , IPHI, LAYER) 

CALL  BCRM02  (AA (IPHI) , BB (IPHI) , CC (IPHI) , DD ( IPHI ) ) 
900        CONTINUE 
C 
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C  ****  CONVERT  TO  TRID I AGONAL  FORM  **** 

BB(1)  =  BB(1)+AA(1) 

AA(1)  =  O.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 

CC(NPHI)  =  O.D+00 
C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NPHI, AA, BB, CC, DD, TEMP) 

DO  975  IPHI=1,NPHI 

T2STAR(INCRAD, IPHI, LAYER)  =  TEMP(IPHI) 
975        CONTINUE 
500    CONTINUE 
C 

CUUUUUUUUUUUUUUUUUUUUUUUUUUUU  TOP  LAYER  UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU 
LAYER  =  NLAYER 
C 
C  ********  T0P  LAYER,  INNER  RADIUS  ******** 

INCRAD  =  1 

RAD  =  RMIN 

DO  1000  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 
T3  =  TSTAR( INCRAD, IPHI, LAYER) 
T4  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREI2  (AA ( IPHI) , BB (IPHI ), CC ( IPHI) , DD (IPHI ) ) 
1000   CONTINUE 
C 

C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

C 

BB(1)  =  BB(1)+AA(1) 

AA(1)  =  0.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 

CC(NPHI)  =  O.D+00 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

C 

CALL  TRIDAG  ( 1, NPHI, AA, BB, CC, DD, TEMP) 

DO  1075  IPHI=1,NPHI 

T2STAR( INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 
107  5        CONTINUE 
C 
C  ********  TOp  LAYER,  MID-RADII  ******** 

DO  1100  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

DO  1200  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  TOLD (  (INCRAD-1) , IPHI,  LAYER) 
T5  =  TOLD ( (INCRAD+1) , IPHI, LAYER) 

CALL  BCREM2  (AA ( IPHI ), BB (IPHI ), CC ( IPHI ), DD ( IPHI ) ) 
1200        CONTINUE 
C 
C  ****  CONVERT  TO  TRIDIAGONAL  FORM  **** 

BB ( 1 )     =    BB ( 1 ) +AA ( 1 ) 

AA(1)     =    O.D+00 
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1275 
1100 
C 
C 


1300 

C 

C 


c 

c 


1375 
998 

END 
C 

cssss 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BB(NPHI)  =  BB(NPHI)+CC(NPHI) 
CC(NPHI)  =  0.D+00 

****  COMPUTE  NODE  TEMPERATURES  **** 
CALL  TRIDAG  (1, NPHI, AA, BB, CC,DD, TEMP) 
DO  1275  IPHI=1,NPHI 
T2 STAR ( INCRAD, IPHI, LAYER)  =  TEMP(IPHI) 

CONTINUE 
CONTINUE 

********  TOp  LAYER,  OUTER  RADIUS  ******** 
INCRAD  =  NODES 
RAD  =  RMAX 
DO  1300  IPHI=1,NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  TOLD  (  ( INCRAD- 1) , IPHI, LAYER) 

CALL  BCRE02  (AA ( IPHI) , BB (IPHI) , CC (IPHI ), DD (IPHI) 
CONTINUE 

****  CONVERT  TO  TRID I AGONAL  FORM  **** 
BB(1)  =  BB(1)+AA(1) 
AA(1)  =  0.D+00 

BB(NPHI)  =  BB (NPHI) +CC (NPHI) 
CC(NPHI)  =  0.D+00 

****  COMPUTE  NODE  TEMPERATURES  **** 
CALL  TRIDAG  ( 1, NPHI, AA, BB, CC, DD, TEMP) 
DO  1375  IPHI=1,NPHI 
T2STAR (INCRAD, IPHI, LAYER)  =  TEMP (IPHI) 

CONTINUE 
RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

STEP3  FORTRAN  A  -  (REV.  10/17/88) 
****************************************************** 


STEP3  -  THIRD  INTERMEDIATE  STEP  (RADIAL  DIRECTION)  * 

OF  BRIAN'S  METHOD  (LONG  FORM)  OF  FINITE  * 

DIFFERENCE  ANALYSIS  FOR  A  RIGHT  CIRCULAR  * 

CYLINDER  WITH  CONSTANT  SURFACE  HEAT  FLUX  * 

AND  SPECIFIED  INNER  SURFACE  TEMPERATURE.    * 
****************************************************** 

PROGRAM  LINE  870 

SUBROUTINE  STEP3  (TOLD, TSTAR, T2STAR, T3STAR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI,  QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 
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COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/   Tl , T2 , T3, T4, T5, T6, T7, T8 , T9, T10, TINF, TSUR 
DIMENSION  TOLD (15, 15, 15) ,TSTAR(15, 15, 15) ,T2STAR(15, 15, 15) 
DIMENSION  T3STAR(15, 15, 15) 

DIMENSION  AA(15),BB(15),CC(15),DD(15) , TEMP (15) 
C 

Cllllllllllllllllllllllllllll  BOTTOM  LAYER  11111111111111111111111111111 
LAYER  =  1 
C 
C  ********  BOTTOM  LAYER,  FIRST  RAY  ******** 

IPHI    =  1 
C 

C         ********  BOTTOM  LAYER,  FIRST  RAY,  INNER  NODE  ******** 
INCRAD  =  1 
RAD  =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR( INCRAD, NPHI, LAYER) 
T5  =  T2 STAR ( INCRAD, (IPHI+1) , LAYER) 
T6  =  T2 STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA (INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

c  ********  BOTTOM  LAYER,  FIRST  RAY,  MID-NODES 

********  D0  100  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  ( INCRAD- 1) *DR 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, NPHI, LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR (INCRAD, IPHI,  LAYER) 

CALL  BCREM3  (AA ( INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
100        CONTINUE 
C 

C         ********  BOTTOM  LAYER,  FIRST  RAY,  OUTER  NODE  ******** 
RAD  =  RMAX 
INCRAD  =  NODES 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR( INCRAD, NPHI, LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1 , NODES , AA, BB, CC, DD, TEMP ) 
DO  17  5  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
17  5  CONTINUE 

C 

C  ********  BOTTOM  LAYER,  MID-RAYS  ******** 

DO  200  IPHI=2, (NPHI-1) 
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c 

c  ********  BOTTOM  LAYER,  MID-RAYS,  INNER  NODE  ******** 

INCRAD  =  1 
RAD     =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR ( INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA (INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD (INCRAD) ) 
C 

c  ********  BOTTOM  LAYER,  MID-RAYS,  MID-NODES  ******** 

DO  300  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA ( INCRAD) , BB (INCRAD)  ,  CC (INCRAD)  , DD (INCRAD)  ) 
300        CONTINUE 
C 

c         ********  BOTTOM  LAYER,  MID-RAYS,  OUTER  NODE  ******** 
RAD  =  RMAX 
INCRAD  =  NODES 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR( INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA ( INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NODES, AA, BB, CC, DD, TEMP) 
DO  375  INCRAD=1, NODES 

T3STAR (INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
37  5  CONTINUE 

2  00    CONTINUE 
C 
C  ********  BOTTOM  LAYER,  LAST  RAY  ******** 

IPHI    =  NPHI 
C 

C  ********  BOTTOM  LAYER,  LAST  RAY,  INNER  NODE  ******** 

INCRAD  =  1 
RAD     =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR ( INCRAD, 1, LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCREI3  (AA ( INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
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c 

c  ********  BOTTOM  LAYER,  LAST  RAY,  MID-NODES  ******** 

DO  400  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3  =  TSTARdNCRAD,  IPHI,  LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2 STAR( INCRAD, 1, LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA ( INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
400        CONTINUE 
C 

c         ********  BOTTOM  LAYER,  LAST  RAY,  OUTER  NODE  ******** 
RAD  =  RMAX 
INCRAD  =  NODES 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3  =  TSTARdNCRAD,  IPHI,  LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR ( INCRAD, 1, LAYER) 
T6  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NODES, AA, BB, CC, DD, TEMP) 
DO  475  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
475  CONTINUE 

C 
CIIIIIIIIIIIIIIIIIIIIIIII  INTERMEDIATE  LAYERS  II I II I I I II I I I I I I II I I II I I I I 

DO  500  LAYER=2, (NLAYER-1) 
C 
C  ********  INTERMEDIATE  LAYERS,  FIRST  RAY  ******** 

IPHI    =  1 
C 

C     ********  INTERMEDIATE  LAYERS,  FIRST  RAY,  FIRST  NODE  ******** 
INCRAD  =  1 
RAD     =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 
T4  =  TSTARdNCRAD,  IPHI,  LAYER) 
T5  =  T2STAR (INCRAD, NPHI, LAYER) 
T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMI3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
C 

C      ********  INTERMEDIATE  LAYERS,  FIRST  RAY,  MID-NODES  ******** 
DO  600  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 
T4  =  TSTARdNCRAD,  IPHI,  LAYER) 
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T5  =  T2STAR(INCRAD,NPHI, LAYER) 

T6  =  T2 STAR ( INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR ( INCRAD, IPHI, LAYER) 

CALL  BCRMM3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
60  0        CONTINUE 
C 

c      ********  INTERMEDIATE  LAYERS,  FIRST  RAY,  OUTER  NODE  ******** 
INCRAD  =  NODES 
RAD  =  RMAX 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR( INCRAD, NPHI, LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRM03  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  ( 1, NODES, AA, BB, CC, DD, TEMP) 
DO  675  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
67  5  CONTINUE 

C 
c  ********  INTERMEDIATE  LAYERS,  MID-RAYS  ******** 

DO  700  IPHI=2, (NPHI-1) 
C 

c      ********  INTERMEDIATE  LAYERS,  MID-RAYS,  INNER  NODE  ******** 
INCRAD  =  1 
RAD     =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR( INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMI3  (AA ( INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C        ********  INTERMEDIATE  LAYERS,  MID-RAYS,  MID-NODES  ******** 
DO  800  INCRAD=2, (NODES-1) 

RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPHI,  LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMM3  (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
800        CONTINUE 
C 

C      ********  INTERMEDIATE  LAYERS,  MID-RAYS,  OUTER  NODE  ******** 
INCRAD  =  NODES 
RAD  =  RMAX 
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Tl  =  TOLD (INCRAD, IPH I, LAYER) 

T2  =  TSTAR(INCRAD, IPHI,  (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI,  ( LAYER- 1)  ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR ( INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRM03  (AA (INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1 , NODES, AA, BB, CC, DD, TEMP) 
DO  875  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
875  CONTINUE 

700    CONTINUE 
C 
C  ********  INTERMEDIATE  LAYERS,  LAST  RAY  ******** 

IPHI    =  NPHI 
C 

c       ********  INTERMEDIATE  LAYERS,  LAST  RAY,  INNER  NODE  ******** 
INCRAD  =  1 
RAD     =  RMIN 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI,  ( LAYER- 1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR ( INCRAD, 1, LAYER) 

T7  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI3  (AA ( INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C        ********  INTERMEDIATE  LAYERS,  LAST  RAY,  MID-NODES  ******** 
DO  900  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, ( LAYER- 1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2 STAR ( INCRAD, 1,  LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMM3  (AA (INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
900        CONTINUE 
C 

c      ********  INTERMEDIATE  LAYERS,  LAST  RAY,  OUTER  NODE  ******** 
INCRAD  =  NODES 
RAD  =  RMAX 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR ( INCRAD, 1, LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRM03  (AA (INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
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c 

C  ****    COMPUTE    NODE    TEMPERATURES    **** 

CALL    TRIDAG     (1, NODES, AA, BB, CC, DD, TEMP) 

DO    975    INCRAD=1, NODES 

T3STAR(INCRAD, IPHI, LAYER)     =    TEMP(INCRAD) 
975  CONTINUE 

500         CONTINUE 
C 

f>  fTi  rp  rp  rri  rp  m  rri  rp  m  rp  rp  rji  ^^p  'P'P  'P  'P  'P  'P  'P  ^P  'P  'P  T1  'P  T1  ^P  'P      T^""\P      T  &  \^T**  15      T  T  T^T*  T1  THP  T1  T*  T^  T1  T1  TT1  T1  T  T^  T1  T1  T*  T*  T*  T  T^  T1  T*  T1  T*  T*  T"1  T"1 

LAYER    =    NLAYER 

C 

c  ********    T0P    LAYER,    FIRST    RAY    ******** 

IPHI         =    1 
C 

C  ********    T0P    LAYER,     FIRST    RAY,     INNER   NODE    ******** 

INCRAD    =    1 
RAD  =    RMIN 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 
T2    =    TSTAR (INCRAD, IPHI,  ( LAYER- 1) ) 
T3    =    TSTAR (INCRAD, IPHI, LAYER) 
T4    =    T2STAR ( INCRAD, NPHI, LAYER) 
T5    =    T2STAR ( INCRAD, (IPHI+1) , LAYER) 
T6    =    T2STAR( INCRAD, IPHI, LAYER) 
CALL    BCREI3     (AA ( INCRAD) , BB (INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ********    TOp    LAYER,     FIRST    RAY,    MID-NODES    ******** 

DO    1000    INCRAD=2, (NODES-1) 
RAD    =    RMIN    +     ( INCRAD- 1) *DR 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 
T2    =    TSTAR (INCRAD, IPHI, ( LAYER- 1) ) 
T3    =    TSTAR (INCRAD, IPHI, LAYER) 
T4    =    T2STAR (INCRAD, NPHI, LAYER) 
T5    =    T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6    =    T2STAR (INCRAD, IPHI, LAYER) 

CALL    BCREM3     (AA (INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
10  00  CONTINUE 

C 

C  ********    T0P    LAYER,     FIRST    RAY,     OUTER   NODE    ******** 

INCRAD    =    NODES 
RAD    =    RMAX 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 
T2    =    TSTAR (INCRAD, IPHI,  ( LAYER- 1)  ) 
T3    =    TSTAR(INCRAD, IPHI, LAYER) 
T4    =    T2 STAR (INCRAD, NPHI, LAYER) 
T5    =    T2STAR( INCRAD, (IPHI+1) , LAYER) 
T6    =    T2STAR( INCRAD, IPHI, LAYER) 

CALL    BCRE03     (AA (INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

C  ****    COMPUTE    NODE    TEMPERATURES    **** 

CALL    TRIDAG     ( 1, NODES, AA, BB, CC, DD, TEMP) 
DO    1075    INCRAD=1, NODES 
T3STAR (INCRAD, IPHI, LAYER)     =    TEMP (INCRAD) 
1075  CONTINUE 

C 
C  ********    TOp    LAYER,     MID-RAYS    ******** 


132 


INCRAD 

=  1 

RAD 

=  RMIN 

Tl  = 

T2  = 

T3  = 

T4  = 

T5  = 

T6  = 

DO  1100  IPHI=2, (NPHI-1) 
C 

c  ********  TOp  LAYER,  MID-RAYS,  INNER  NODE  ******** 


TOLD (INCRAD, IPHI, LAYER) 
TSTAR ( INCRAD, IPH I, (LAYER-1)) 
TSTAR( INCRAD, IPHI, LAYER) 
T2 STAR (INCRAD, (IPHI-1) , LAYER) 
T2STAR( INCRAD, (IPHI+1) , LAYER) 
T2STAR( INCRAD, IPHI,  LAYER) 
CALL  BCREI3  (AA (INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD (INCRAD) ) 
C 

C  ********  T0P  LAYER,  MID-RAYS,  MID-NODES  ******** 

DO  1200  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA (INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
1200        CONTINUE 
C 

C  ********  TOp  LAYER,  MID-RAYS,  OUTER  NODE  ******** 

INCRAD  =  NODES 
RAD  =  RMAX 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR( INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NODES, AA, BB, CC, DD, TEMP) 
DO  1275  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
1275  CONTINUE 

1100    CONTINUE 
C 
C  ********  T0P  LAYER,  LAST  RAY  ******** 

IPHI    =  NPHI 
C 
C  ********  T0P  LAYER,  LAST  RAY,  INNER  NODE  ******** 


TOLD (INCRAD, IPHI, LAYER) 
TSTAR(INCRAD, IPHI, (LAYER-1) ) 
TSTAR (INCRAD, IPHI, LAYER) 
T2 STAR (INCRAD, (IPHI-1) , LAYER) 
T2  STAR ( INCRAD , 1 , LAYER) 
T2STAR( INCRAD, IPHI, LAYER) 


INCRAD 

=  1 

RAD 

=  RMIN 

Tl  = 

T2  = 

T3  = 

T4  = 

T5  = 

T6  = 
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CALL  BCREI3  (AA ( INCRAD) , BB ( INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
C 

c  ********  Top  LAYER,  LAST  RAY,  MID-NODES  ******** 

DO  1300  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

Tl  =  TOLD (INCRAD, IPH I, LAYER) 
T2  =  TSTAR ( INCRAD, IPHI, (LAYER-1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR (INCRAD, 1, LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM3  (AA ( INCRAD) , BB (INCRAD) , CC (INCRAD) , DD ( INCRAD) ) 
130  0        CONTINUE 
C 

c  ********  Top  LAYER,  LAST  RAY,  OUTER  NODE  ******** 

INCRAD  =  NODES 
RAD  =  RMAX 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR (INCRAD, 1, LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE03  (AA (INCRAD) , BB ( INCRAD) , CC ( INCRAD) , DD ( INCRAD) ) 
C 

C  ****  COMPUTE  NODE  TEMPERATURES  **** 

CALL  TRIDAG  (1, NODES, AA, BB, CC,DD, TEMP) 
DO  1375  INCRAD=1, NODES 

T3STAR( INCRAD, IPHI, LAYER)  =  TEMP (INCRAD) 
1375  CONTINUE 

998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      STEP4  FORTRAN  A  -  (REV.  10/25/88) 

Q  ******************************************************* 

C  *  STEP  4  -  FOURTH  INTERMEDIATE  STEP  (TEMPERATURE  AT  * 

C  *  N+l  TIME  STEP)  FOR  BRAIN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  FOR  A  RIGHT  * 

C  *  CIRCULAR  CYLINDER  WITH  CONSTANT  SURFACE  * 

C  *  HEAT  FLUX  AND  SPECIFIED  INNER  SURFACE  * 

C  *  TEMPERATURE.  * 

O  ******************************************************* 

C      PROGRAM  LINE  1310 

SUBROUTINE  STEP4  (TOLD, TSTAR, T2STAR, T3STAR,  TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK,  ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI,  QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 
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COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 
COMMON  /TEMPS/   Tl , T2 , T3, T4 , T5, T6, T7 , T8 , T9, T10 , TINF, TSUR 
DIMENSION  TOLD (15, 15, 15) ,TSTAR(15, 15, 15) ,T2STAR(15, 15, 15) 
DIMENSION  T3STAR(15, 15, 15) ,TNEW(15,  15,  15) 
C 
CBBBBBBBBBBBBBBBBBBBBBBBBBBBB  BOTTOM  LAYER  BBBBBBBBBBBBBBBBBBBBBBBBBBBBB 

LAYER   =  1 
C 

C  ****  BOTTOM  LAYER,  INNER  RADIUS  **** 

INCRAD  =  1 
RAD  =  RMIN 
C 

c  ********  BOTTOM  LAYER,  INNER  RADIUS,  FIRST  PHI  ******** 
IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, NPHI, LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 
T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 
T8  =  T3STAR (INCRAD, IPHI, LAYER) 
CALL  BCREI4  (TEMP) 
TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
C 

C  ********  BOTTOM  LAYER,  INNER  RADIUS,  MID-PHIS  ******** 

DO  100  IPHI=2,  (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 
T6  =  T2STAR( INCRAD, IPHI, LAYER) 
T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 
T8  =  T3STAR( INCRAD, IPHI, LAYER) 
CALL  BCREI4  (TEMP) 
TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
100    CONTINUE 
C 

C  ********  BOTTOM  LAYER,  INNER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI,  LAYER) 
T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 
T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 
T5  =  T2STAR ( INCRAD, 1, LAYER) 
T6  =  T2STAR (INCRAD, IPHI, LAYER) 
T7  =  T3STAR( (INCRAD  +  1), IPHI,  LAYER) 
T8  -  T3STAR( INCRAD, IPHI, LAYER) 
CALL  BCREI4  (TEMP) 
TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
C 

C  ********  BOTTOM  LAYER,  MID-RADII  ******** 

DO  200  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  ( INCRAD- 1) *DR 
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c 

c  ********  BOTTOM  LAYER,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR( INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, NPHI,  LAYER) 

T5  =  T2STAR ( INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
C 

c  ********  BOTTOM  LAYER,  MID  RADII,  MID-PHIS  ******** 

DO  300  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 
T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR( INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
300  CONTINUE 

C 

c  ********  BOTTOM  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, 1, LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI,  LAYER) 

CALL  BCREM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
2  00        CONTINUE 
C 

C  ****  OUTER  RADIUS  **** 

INCRAD  =  NODES 
RAD  =  RMAX 
C 

C         ********  BOTTOM  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 
IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR( INCRAD, NPHI, LAYER) 
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T5  -  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR(INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR(INCRAD, IPHI,  LAYER) 

CALL  BCRE04  (TEMP) 

TNEW(INCRAD, IPHI, LAYER)  =  TEMP 
C 

c  ********  FIRST  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  400  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( INCRAD, IPHI,  LAYER) 

CALL  BCRE04  (TEMP) 
TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
4  00        CONTINUE 
C 

q  ********  BOTTOM  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR ( INCRAD, 1, LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
C 

CMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  MID-LAYERS  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 
DO  50  0  LAYER=2, (NLAYER-1) 
C 

C  ****  MID-LAYERS,  INNER  RADIUS  **** 

INCRAD  =  1 
RAD  =  RMIN 
C 

c  ********  MID-LAYERS,  INNER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR(INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR( INCRAD, NPHI, LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI,  LAYER) 

T9  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
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c 

c        ********  MID-LAYERS,  INNER  RADIUS,  MID-PHIS  ******** 
DO  600  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD,  IPHI,  (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2 STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR ( INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMI4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

600        CONTINUE 

C 

c    ********  MID-LAYERS,  INNER  RADIUS,  LAST  PHI  ******** 
IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  =  TSTARdNCRAD,  IPHI,  LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR (INCRAD, 1, LAYER) 

T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRMI4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C 

C  ********  MID-LAYERS,  MID-RADII  ******** 

DO  700  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

C 

C  ********  MID-LAYERS,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 

T3  =  TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 

T4  =  TSTARdNCRAD,  IPHI,  LAYER) 

T5  =  T2STAR (INCRAD, NPHI, LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T9  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T10  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRMM4  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C 

c  ********    MID-LAYERS,    MID-RADII,    MID-PHIS    ******** 

DO    800    IPHI=2, (NPHI-1) 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 
T2    =    TSTARdNCRAD,  IPHI,  (LAYER+1)  ) 
T3    =    TSTARdNCRAD,  IPHI,  (LAYER-1)  ) 
T4    =    TSTARdNCRAD,  IPHI,  LAYER) 
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T5  =  T2STAR(INCRAD, (IPHI-1) , LAYER) 
T6  =  T2STAR(INCRAD, (IPHI+1) , LAYER) 
T7  =  T2STAR(INCRAD,  IPHI, LAYER) 
T8  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 
T9  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 
T10  =  T3STAR(INCRAD, IPHI, LAYER) 
CALL  BCRMM4  (TEMP) 
TNEW(INCRAD, IPHI, LAYER)  =  TEMP 

800  CONTINUE 

C 

c  ********  MID-LAYERS,  MID-RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR (INCRAD, 1, LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T9  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T10  =  T3STAR( INCRAD, IPHI,  LAYER) 

CALL  BCRMM4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

700        CONTINUE 

C 

C  ****  MID-LAYERS,  OUTER  RADII  **** 

INCRAD  =  NODES 
RAD  =  RMAX 

C 

C  ********  MID-LAYERS,  OUTER  RADII,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR( INCRAD, NPHI, LAYER) 

T6  =  T2STAR( INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR( INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T9  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRM04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 

C 

C  ********  MID-LAYERS,  OUTER  RADII,  MID-PHIS  ******** 

DO  900  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR(INCRAD, IPHI, (LAYER+1) ) 

T3  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4  =  TSTAR (INCRAD, IPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T7  =  T2STAR (INCRAD, IPHI, LAYER) 

T8  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI,  LAYER) 
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CALL    BCRM04     (TEMP) 

TNEW(INCRAD,IPHIr LAYER)    =    TEMP 
90  0  CONTINUE 

C 

c  ********    MID-LAYERS,     OUTER   RADII,     LAST    PHI    ******** 

IPHI    =    NPHI 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 

T2    =    TSTAR (INCRAD, IPHI, (LAYER+1) ) 

T3    -    TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T4    =    TSTAR (INCRAD, IPHI, LAYER) 

T5    =    T2STAR (INCRAD, (IPHI-1) , LAYER) 

T6    =    T2STAR (INCRAD, 1, LAYER) 

T7    =    T2STAR (INCRAD, IPHI, LAYER) 

T8    =   T3STAR( (INCRAD-1) , IPHI, LAYER) 

T9   =   T3STAR (INCRAD, IPHI, LAYER) 

CALL   BCRM04     (TEMP) 

TNEW( INCRAD, IPHI, LAYER)     =    TEMP 
500  CONTINUE 

C 

/"*  rji  rp  rp  rp  m  rn  rp  rp  m  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp  rp       'P/^D        T    21  V^TT1 13       T*  T1  T*  T1  T1  T"TI  T"1  T  T1  T1  T"1  rP  T1  T1  ^P  T1  T1  *"P  T1  rP  T^T1  ^T1  *"P  T1  T1  T1  T1  T1  T1 

LAYER    =    NLAYER 
C 


TOP    LAYER,     INNER    RADIUS 


INCRAD    =    1 
RAD    =    RMIN 


C 

c  ********    T0P    LAYER,     INNER   RADIUS,     FIRST    PHI******** 

IPHI    =    1 

Tl    =    TOLD (INCRAD, IPHI, LAYER) 

T2    =    TSTAR (INCRAD, IPHI,  (LAYER-1) ) 

T3    =    TSTAR (INCRAD, IPHI, LAYER) 

T4    =    T2 STAR (INCRAD, NPHI, LAYER) 

T5    =    T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6    =    T2STAR (INCRAD, IPHI, LAYER) 

T7    =    T3STAR( (INCRAD+1) , IPHI,  LAYER) 

T8    =    T3STAR( INCRAD, IPHI, LAYER) 

CALL    BCREI4     (TEMP) 

TNEW (INCRAD, IPHI, LAYER)     =    TEMP 

C 

C  ********    T0P    LAYER,     INNER   RADIUS,    MID-PHIS    ******** 

DO    1000    IPHI=2, (NPHI-1) 

Tl    =    TOLD (INCRAD, IPHI,  LAYER) 

T2    =    TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3    =    TSTAR (INCRAD, IPHI, LAYER) 

T4    =    T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5    =    T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6    -    T2STAR (INCRAD, IPHI, LAYER) 

T7    =    T3STAR( (INCRAD+1), IPHI, LAYER) 

T8    =    T3STAR( INCRAD, IPHI, LAYER) 

CALL    BCREI4     (TEMP) 

TNEW (INCRAD, IPHI, LAYER)     =    TEMP 

1000       CONTINUE 

C 

C  ********    TOp    LAYER,     INNER   RADIUS,     LAST    PHI    ******** 

IPHI    =    NPHI 
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Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, ( LAYER- 1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, 1, LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T8  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREI4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

C 

c  ****  Top  LAYER,  MID  RADII  **** 

DO  1100  INCRAD=2, (NODES-1) 
RAD  =  RMIN  +  (INCRAD-1) *DR 

C 

c  ********  T0P  LAYER,  MID-RADII,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR ( INCRAD, NPHI, LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

C 

q  ********  TOp  LAYER,  MID  RADII,  MID-PHIS  ******** 

DO  1200  IPHI  =  2,  (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD  +  1) , IPHI,  LAYER) 

T9  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCREM4  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 

120  0  CONTINUE 

C 

C  ********  TOP  LAYER,  MID  RADII,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, 1, LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR( (INCRAD+1) , IPHI, LAYER) 

T9  =  T3STAR( INCRAD, IPHI, LAYER) 
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CALL  BCREM4  (TEMP) 

TNEW(INCRAD,IPHI, LAYER)  =  TEMP 
1100       CONTINUE 
C 

C  ****  TOP  LAYER,  OUTER  RADIUS  **** 

INCRAD  =  NODES 
RAD  =  RMAX 
C 

C  ********  T0P  LAYER,  OUTER  RADIUS,  FIRST  PHI  ******** 

IPHI  =  1 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR( INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR (INCRAD, NPHI,  LAYER) 

T5  =  T2STAR ( INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR( INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEW( INCRAD, IPHI, LAYER)  =  TEMP 
C 

c  ********  TOp  LAYER,  OUTER  RADIUS,  MID-PHIS  ******** 

DO  1300  IPHI=2, (NPHI-1) 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR ( INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR (INCRAD, (IPHI+1) , LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1)  ,  IPHI,  LAYER) 

T8  =  T3STAR( INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

1300       CONTINUE 

C 

C  ********  T0P  LAYER,  OUTER  RADIUS,  LAST  PHI  ******** 

IPHI  =  NPHI 

Tl  =  TOLD (INCRAD, IPHI, LAYER) 

T2  =  TSTAR (INCRAD, IPHI, (LAYER-1) ) 

T3  =  TSTAR (INCRAD, IPHI, LAYER) 

T4  =  T2STAR( INCRAD, (IPHI-1) , LAYER) 

T5  =  T2STAR ( INCRAD, 1, LAYER) 

T6  =  T2STAR (INCRAD, IPHI, LAYER) 

T7  =  T3STAR( (INCRAD-1) , IPHI, LAYER) 

T8  =  T3STAR (INCRAD, IPHI, LAYER) 

CALL  BCRE04  (TEMP) 

TNEW (INCRAD, IPHI, LAYER)  =  TEMP 
998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCREI1  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C      *  BCREI1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
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C  *  THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERME-  * 

C  *  DIATE  STEP  IN  Z  DIRECTION  OF  A  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATE  ADAPTATION  OF  BRIAN'S  METHOD  OF  FINITE  * 

C  *  DIFFERENCE  ANALYSIS.  * 

Q         ****************************************************************** 

C      PROGRAM  LINE  17  67 

SUBROUTINE  BCREI1  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI , NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

HE  =  HSUBS 

EPSE  =  EPSUBS 

A  =  O.D+00 

C  =  -FO 

ELSE IF  ( LAYER. EQ. NLAYER)  THEN 

Q  =  QPSUBN 

HE  =  HSUBN 

EPSE  =  EPSUBN 

A  =  -FO 

C  =  O.D+00 

END  IF 

Dl  =  (DKP*DZ**2) /(2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 
C 

B  =  1  +  FO*(l  +  D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI ) ) 
C 

D  =  Tl  +  FO* (Dl* (T2+T3-2*T1)  +  D2*(T4-T1) 

1  +  D3* (Q+HE*TINF+D5*EPSE*TSUR) 

2  +  D4* (QPSUBI+HSUBI*TINF+D5*EPSUBI*TSUR) )  998    RETURN 
END 

C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCREI2  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCREI2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)      * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERME-   * 

C  *  DIATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF        * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL    * 

C  *  COORDINATES.                                              * 
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****************************************************************** 

PROGRAM  LINE  1818 

SUBROUTINE  BCREI2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK,  ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,TINF,TSUR 
***  BODY  *** 

THEN 


COMMON  /TEMPS/ 


C  = 
C 

1 

998 

END 

C 

CSSS 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


IF  (LAYER. EQ.l) 
Q  =  QPSUBS 

HE  -  HSUBS 
EPSE  =  EPSUBS 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 
Q  =  QPSUBN 
HE  =  HSUBN 
EPSE  =  EPSUBN 
ENDIF 

Dl  =  (DKP*DZ**2) / <2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 
A  =  -Dl*FO 

B  =  1  +  FO*(2*Dl  +  D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI ) ) 
-Dl*FO 

D  =  Tl  +  FO*((T2-T3)  +  D2*(T4-T1)  +  D3* (Q-HE*TINF-D5*EPSE*TSUR) 

+  D4* (QPSUBI+HSUBI*TINF+D5*EPSUBI*TSUR) ) 
RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BCREI3  FORTRAN  A  -  (REV.  11/16/88) 


****************************************************************** 


*  BCREI3 

* 
* 
* 
* 
* 


THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 
OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERME- 
DIATE STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF 
FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 

COORDINATES. 
****************************************************************** 

PROGRAM  LINE  18  65 

SUBROUTINE  BCREI3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 
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COMMON  /MATS  I Z 

COMMON  /NPOSIT 

COMMON  /P ARAMS 

COMMON  /RADN/ 

COMMON  /TEMPS/ 


/  NODES, NPHI,NLAYER 

/  INCRAD, IPHI, LAYER 

/  CSUBP,RHO 

EPSUBN, EPSUBS, EPSUBI,EPSUBO, SIGMA 
T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,TINF,TSUR 
*  *  *  BODY  *  *  * 

)  THEN 


IF  ( LAYER. EQ.l 

Q  =  QPSUBS 

HE  =  HSUBS 

EPSE  =  EPSUBS 

ELSEIF  ( LAYER. EQ.NLAYER)  THEN 

Q  =  QPSUBN 

HE  =  HSUBN 

EPSE  =  EPSUBN 

ENDIF 

Dl  =  DKP*DZ**2 

D2  =  DKR* (RAD+ 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ** 

D5  =  SIGMA* (Tl 

A  =  O.D+00 

B  =  1  +  FO* (D2  +  D3* (HE+D5*EPSE)  +  D4* (HSUBI+D5*EPSUBI ) ) 

C  =  -D2*FO 


!/ (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
•DR/2) *DZ**2/ (DKZ* (RAD+DR/4) *DR**2) 

2) I (DKZ* (RAD+DR/4) *DR) 
.+TSUR) * (T1**2+TSUR**2) 


1 

2 

998 

END 

C 

CSS 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


D  =  Tl  +  FO*((T2-T3)  +  Dl*  (T4  +  T5-2*T6) 
+  D3* (Q  +  HE*TINF  +  D5*EPSE*TSUR) 

+  D4* (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR) ) 


RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BCREI4  FORTRAN  A  -  (REV.  11/16/88) 


******************************************************* 


*********** 


THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT 
THE  INNER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH) 
OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF 
FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 
COORDINATES. 


*  BCREI4 

* 

* 

* 

* 

****************************************************************** 

PROGRAM  LINE  197  8 

SUBROUTINE  BCREI4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2 , T3, T4 , T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 
IF  (LAYER. EQ.l)  THEN 
Q  =  QPSUBS 
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HE  =  HSUBS 
EPSE  =  EPSUBS 

ELSEIF  ( LAYER. EQ.NLAYER)  THEN 
Q  =  QPSUBN 
HE  =  HSUBN 
EPSE  =  EPSUBN 
ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
D5  =  SIGMA* (Tl+TSUR) *  (T1**2+TSUR**2) 

D6  =  1  +  2*F0* (D3*  (HE+D5*EPSE)  +  D4*  (HSUBI+D5*EPSUBI)  ) 
C 

TNEW  =  1/D6*(T1+2*F0*( (T2-T3)  +  Dl*  (T4+T5-2*T6)  +  D2*(T7-T8) 

1+  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2+  D4MQPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR)  )  ) 

C 

998    RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCREM1  FORTRAN  A  -  (REV.  11/16/88) 

Q  *********************************************************** 

C  *  BCREM1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  * 

C  *  NODES  AT  THE  MID-RADII  OF  THE  END  LAYERS  * 

C  *  (NORTH,  SOUTH  FACES)  OF  A  RIGHT-CIRCULAR  CYL-  * 

C  *  INDER  FOR  THE  FIRST  INTERMEDIATE  TIMESTEP  * 

C  *  (STAR  LEVEL)  OF  A  3-D,  POLAR-CYLINDRICAL  * 

C  *  COORDINATE  ADAPTATION  OF  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS.  * 

Q  *********************************************************** 

C      PROGRAM  LINE  2027 

SUBROUTINE  BCREM1  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN,  THICK,  ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS , EPSUBI , EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl , T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

A  =  0 .D+00 

C  =  -FO 

ELSEIF  (LAYER. EQ.NLAYER)  THEN 

Q  =  QPSUBN 
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EPSE  =  EPSUBN 

HE  =  HSUBN 

A  =  -FO 

C  =  O.D+00 

ENDIF 


Dl 
D2 
D3 
D4 
D5 
B 


=  1 


(DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

(DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

(DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 

DZ/DKZ 

SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 
+  FO*(l  +  D4*(HE  +  D5*EPSE) ) 


C 
998 

END 

C 

CSS 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


D  =  Tl  +  FO*  (Dl*  (T2+T3-2*T1)  +  D2*(T4-T1)  +  D3MT5-T1) 
1+  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR) ) 

RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BCREM2  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 

*  BCREM2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
THE  MID-RADIAL  NODES  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 
OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 
IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL     * 
COORDINATES.  * 


****************************************************************** 


PROGRAM 

SUB ROUT 

IMPLICI 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


LINE  2077 
INE  BCREM2  (A,B,C,D) 
T  DOUBLE  PRECISION  (A-H,0-Z) 
/CONDUC/  DKR,DKP,DKZ 
/CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

/GEOMET/  DPHI,DR,DZ,RAD,RMAX,RMIN, THICK, ZMAX, LPHI 
/HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 
/MATSIZ/  NODES, NPHI,NLAYER 
/NPOSIT/  INCRAD, IPHI,  LAYER 
/PARAMS/  CSUBP,RHO 

/RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 
/TEMPS/   T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,TINF,TSUR 


BODY 


IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

ELSEIF  ( LAYER. EQ.NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 
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998 

END 
C 

csss 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D4  =  DZ/DKZ 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2 ) 

A  =  -D1*F0 

B  =  1  +  F0*(2*D1  +  D4*(HE  +  D5*EPSE) ) 

C  =  -D1*F0 

D  =  Tl  +  FO*((T2-T3)  +  D2MT4-T1)  +  D3*(T5-T1) 

1  +  D4*(Q  +  HE*TINF  +  D5*EPSE*TSUR) ) 

RETURN 


ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 


BCREM3  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 

*  BCREM3  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
THE  MID-RADIAL  NODES  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 
OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 
IATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL     * 
COORDINATES.  * 


****************************************************************** 

PROGRAM  LINE  2  05  9 

SUBROUTINE  BCREM3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK,  ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI , NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI , LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/  Tl , T2 , T3 , T4 , T5, T6 , T7 , T8 , T9 , T10 , TINF, TSUR 

***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D4  =  DZ/DKZ 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -D2*FO 

B  =  1  +  FO* (D2  +  D3  +D4*(HE  +  D5*EPSE) ) 

C  =  -D3*FO 

D  =  Tl  +  FO*((T2-T3)  +  Dl*  (T4+T5-2*T6) 
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+  DA*  (Q    +  HE*TINF  +  D5*EPSE*TSUR) ) 


998 
END 
C 
CSSSS 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


RETURN 


sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

BCREM4  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 

*  BCREM4  -  THIS  SUBROUTINE  COMPUTES  THE  TEMPERATURES  OF  THE  MID-  * 

*  RADIAL  NODES  FOR  THE  END  LAYERS  (NORTH,  SOUTH)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES.  * 


****************************************************************** 

PROGRAM  LINE  2106 

SUBROUTINE  BCREM4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK,  ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS , EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10 , TINF, TSUR 
C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

ELSEIF  ( LAYER. EQ . NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (2*DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (2*DKZ*RAD*DR**2 ) 

D4  =  DZ/DKZ 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

D6  =  1  +  2*FO*D4*(HE  +  D5*EPSE) 

TNEW  =  1/D6MT1  +  2*FO*  (  (T2-T3)  +  Dl*  (T4  +  T5-2*T6)  +  D2*(T7-T9) 

1+  D3MT8-T9)  +  D4*  (Q  +  HE*TINF  +  D5*EPSE*TSUR)  )  ) 
998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 
c 
c 
c 
c 
c 
c 


BCREOl  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 

*  BCREOl  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

*  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)       * 
* 

* 


OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 
STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 
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DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 
COORDINATES. 


****************************************************************** 

PROGRAM  LINE  2216 

SUBROUTINE  BCREOl  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI,  QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI , NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EP SUBS, EP SUB I, EPSUBO, SIGMA 

T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,TINF,TSUR 
***  BODY  *** 

THEN 


COMMON  /TEMPS/ 


998 
END 
C 
CSSSS 

c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 


IF  (LAYER. EQ.l) 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

A  =  O.D+00 

C  =  -FO 

ELSEIF  ( LAYER. EQ. NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

A  =  -FO 

C  =  O.D+00 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2) 

D2  =  <DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

B  =  1  +  FO*(l  +  D3*  (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO) ) 

D  =  Tl  +  FO*  (Dl* (T2+T3-2*T1)  +  D2*(T4-T1) 

1  +  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 
RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

BCRE02  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 

*  BCRE02  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

*  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

*  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES.  * 
****************************************************************** 


PROGRAM  LINE  22  65 
SUBROUTINE  BCRE02  (A,B,C,D) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
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COMMON  /CONDUC/  DKR,DKP,DKZ 
COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 
COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI ,  QPSUBO 
/MATSIZ/  NODES, NPHI,NLAYER 
/NPOSIT/  INCRAD, IPHI, LAYER 
/PARAMS/  CSUBP,RHO 
/RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 

T1,T2,T3,T4,T5,T6,T7, T8,T9,T10, TINF,TSUR 

***  BODY  *** 
THEN 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON  /TEMPS/ 


998 
END 
C 
CSS 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


IF  (LAYER. EQ.l) 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

ELSEIF  (LAYER.EQ.NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2 ) 

D2  =  (DKR* (RADDR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -Dl*FO 

B  =  1  +  FO*(2*Dl  +  D3*  (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO)  ) 

C  =  -Dl*FO 

D  =  Tl+FO*  (  (T2-T3)  +  D2MT4-T1)  +  D3*  (Q  +  HE*TINF  +  D5*EPSE*TSUR) 

1+  D4* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BCRE03  FORTRAN  A  -  (REV.  11/16/88) 


******************************************************************* 


*  BCRE03 

* 
* 
* 
* 


-  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 
OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED- 
IATE STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF 
FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 

*  COORDINATES . 

****************************************************************** 

PROGRAM  LINE  2311 

SUBROUTINE  BCRE03  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
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998 
END 
C 
CSS 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


C  ***  BODY  *** 

IF  ( LAYER. EQ.l)  THEN 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

ELSEIF  ( LAYER. EQ.NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 

ENDIF 

Dl  =  (DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2 ) 

D2  =  (DKR*(RAD-DR/2)*DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  DZ/DKZ 

D4  =  (RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  -  -D2*FO 

B  =  1  +  FO* (D2  +  D3* (HE+D5*EPSE)  +  D4* (HSUBO+D5*EPSUBO) ) 

C  =  O.D+00 

D  =  Tl  +  FO*((T2-T3)  +  Dl*  (T4  +  T5-2*T6) 

1  +  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +  D4*(QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 
RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

BCRE04  FORTRAN  A  -  (REV.  11/16/88) 
****************************************************************** 

*  BCRE04  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT     * 

*  THE  OUTER  SURFACE  OF  THE  END  LAYERS  (NORTH,  SOUTH)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES.  * 


*  *  * 


*************************************************************** 


PROGRAM  LINE  2357 

SUBROUTINE  BCRE04  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /MATSIZ/  NODES, NPHI, NLAYER 

COMMON  /NPOSIT/  INCRAD, IPHI, LAYER 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 

T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,TINF,TSUR 
*  *  *  BODY  *  *  * 

THEN 


COMMON  /TEMPS/ 


IF  (LAYER. EQ.l) 

Q  =  QPSUBS 

EPSE  =  EPSUBS 

HE  =  HSUBS 

ELSEIF  (LAYER. EQ.NLAYER)  THEN 

Q  =  QPSUBN 

EPSE  =  EPSUBN 

HE  =  HSUBN 
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ENDIF 

Dl  - 

D2  = 

D3 

D4 

D5 

D6 


(DKP*DZ**2) / (2*DKZ* (RAD-DR/4) *RAD*DPHI**2 ) 
(DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

DZ/DKZ 
(RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 

SIGMA* (Tl+TSUR) * (T1**2+TSUR* *2) 

1  +  2*F0*(  D3*  (HE+D5*EPSE)  +  D4* (HSUB0+D5*EPSUB0)  ) 


C 

998 

END 

C 

CSS 

C 

C 

C 

C 

c 
c 
c 
c 
c 
c 
c 


TNEW  =  1/D6MT1  +  2*F0*  (  (T2-T3)  +  Dl*  (T4+T5-2*T6)  +  D2*(T7-T8) 

1  +  D3*(Q  +  HE*TINF  +  D5*EPSE*TSUR) 

2  +    D4MQPSUB0    +    HSUBO*TINF    +    D5*EPSUB0*TSUR)  )  ) 

RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

BCRMI1  FORTRAN  A  -  (REV.  11/16/88) 
**************************************************** 

*  BCRMI1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

*  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

*  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE     * 

*  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

*  COORDINATES.  * 
****************************************************************** 

PROGRAM  LINE  2404 

SUBROUTINE  BCRMI1  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI , HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 

COMMON  /TEMPS/  Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 
Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (Tl **2+TSUR**2 ) 
A  =  -FO/2 

B  =  1  +  FO/2* (2  +  D3*  (HSUBI  +  D5*EPSUBI)) 
C  =  -FO/2 

D  =  Tl  +  FO/2* (Dl* (T2+T3-2*T1)  +  D2*(T4-T1) 

1  +  D3*  (QPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR)  ) 

RETURN 


998 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCRMI2  FORTRAN  A  -  (REV.  09/30/88) 

Q  ****************************************************************** 

C      *  BCRMI2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 
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c 
c 
c 
c 
c 
c 
c 


THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-  * 

IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

COORDINATES.  * 

********************************** 


998 

END 

C 

CSSSS 

C 

C 

C 

C 

c 
c 
c 
c 
c 
c 
c 


******************************** 

PROGRAM  LINE  2373 

SUBROUTINE  BCRMI2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, OP SUB I,  QPSUBO 

COMMON  /P ARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/  Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 
Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  =  (2*RAD*DZ**2) /(DKZ* (RAD+DR/4) *DR) 
***  NO  D4  REQUIRED  *** 
D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 
A  =  -Dl*FO/2 

B  =  1  +  F0/2*(2*D1  +  D3* (HSUBI  +  D5*EPSUBI)) 
C  =  -Dl*FO/2 

D  =  Tl  +  FO/2M  (T2+T3-2*T4)  +  D2*(T5-T1) 

1  +  D3MQPSUBI  +  HSUBI*TINF  +  D5*EPSUBI*TSUR)  ) 

RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BCRMI3  FORTRAN  A  -  (REV.  11/16/88) 


*  BCRMI3  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

*  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

*  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-    * 

*  IATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  * 

*  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL     * 

*  COORDINATES.  * 
****************************************************************** 

PROGRAM  LINE  2474 

SUBROUTINE  BCRMI3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/  Tl , T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 
Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 
D2  =  (2*DKR* (RAD+DR/2) *DZ**2) / (DKZ* (RAD+DR/4) *DR**2) 
D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
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C      ***  NO  D4  REQUIRED  *** 

D5  -  SIGMA* (Tl+TSUR) * (Tl * *2+TSUR**2 ) 

A  =  O.D+00 

B    =    1    +    FO/2MD2    +    D3MHSUBI    +    D5*EPSUBI)) 

C    =    -D2*FO/2 

D    =    Tl    +    FO/2*  (  (T2+T3-2*T4)     +   Dl*  (T5+T6-2 *T7 ) 

1  +    D3MQPSUBI    +    HSUBI*TINF    +    D5*EPSUBI*TSUR)  ) 

998      RETURN 
END 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      BCRMI4  FORTRAN  A  -  (REV.  11/16/88) 

Q         ****************************************************************** 

C  *  BCRMI4  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  INNER  SURFACE  OF  THE  MID-LAYERS  (2  THRU  NLAYER-1)  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q  ****************************************************************** 

C      PROGRAM  LINE  2508 

SUBROUTINE  BCRMI4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7 , T8 , T9, T10 , TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD+DR/4) *DPHI**2) 

D2  =  (2*DKP.*  (RAD+DR/2)  *DZ**2)  /  (DKZ*  (RAD+DR/4)  *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD+DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (Tl* *2+TSUR**2 ) 

D6    =    1    +    FO*D3* (HSUBI    +    D5*EPSUBI) 
C 

TNEW   =    1/D6MT1    +    FO*  (  (T2+T3-2*T4)     +   Dl*  (T5+T6-2*T7 ) 
1  +    D2MT8-T9)     +    D3*  (QPSUBI    +    HSUBI*TINF    +    D5*EPSUBI*TSUR)  )  ) 

C 

998   RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCRMM1  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCRMM1  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)       * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

C  *  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE     * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL             * 

C  *  COORDINATES.                                               * 
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a***************************************************************** 

PROGRAM  LINE  2543 

SUBROUTINE  BCRMM1  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 

***  BODY  *** 
Dl  =  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2 
D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
A  =  -Dl*FO/2 
B  =  1  +  Dl*FO 
C  =  -Dl*FO/2 

D  =  Tl  +  FO/2* (Dl* (T2+T3-2*T1)  +  D2*(T4-T1) 
RETURN 


+  D3*  (T5-T1) ) 


998 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCRMM2  FORTRAN  A  -  (REV.  10/12/88) 

Q  A***************************************************************** 

C  *  BCRMM2  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)       * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-   * 

C  *  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE   * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL             * 

C  *  COORDINATES.                                               * 

Q  ****************************************************************** 

C      PROGRAM  LINE  2575 

SUBROUTINE  BCRMM2  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI ,  QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2 , T3, T4, T5, T6, T7, T8 , T9, T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

A  =  -Dl*FO/2 

B  =  1  +  Dl*FO 

C  =  -Dl*FO/2 

D  =  Tl  +  FO/2*  (  (T2+T3-2*T4)  +  D2*(T5-T1)  +  D3MT6-T1)) 
998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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BCRMM3  FORTRAN  A  -  (REV.  11/16/88) 


****************************************************************** 


998 

END 
C 

cssss 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BCRMM3  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

THE  MID-RADII  OF  THE  MID-LAYERS  (2  THRU  NLAYERS-1)  * 

OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-  * 

IATE  STEP  (Z  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE  * 

DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

COORDINATES.  * 

****************************************************************** 

PROGRAM  LINE  2607 

SUBROUTINE  BCRMM3  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2 , T3, T4 , T5, T6, T7 , T8, T9, T10, TINF, TSUR 

C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

A  =  -D2*FO/2 

B  =  1  +  FO/2*  (D2+D3) 

C  =  -D3*FO/2 

D  =  Tl  +  FO/2* ( (T2+T3-2*T4)  +  Dl* (T5+T6-2*T7 ) ) 

RETURN 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


BCRMM4  FORTRAN  A 


(REV.  11/16/88) 


****************************************************************** 


*  BCRMM4 
* 

* 

* 
* 


-  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT 
THE  MID-RADII  OF  THE   MID-LAYERS  (2  THRU  NLAYER-1) 
OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF 
FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL 
COORDINATES . 


****************************************************************** 

PROGRAM  LINE  2572 

SUBROUTINE  BCRMM4  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI , DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl , T2 , T3, T4, T5, T6, T7, T8, T9, T10 , TINF, TSUR 

C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD**2*DPHI**2) 

D2  =  (DKR* (RAD-DR/2) *DZ**2) / (DKZ*RAD*DR**2) 

D3  =  (DKR* (RAD+DR/2) *DZ**2) / (DKZ*RAD*DR**2) 
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C  ***    NO   D4,    D5    OR   D6    REQUIRED    *** 

TNEW   =    Tl    +    FO* ( (T2+T3-2*T4)     +    Dl*  (T5+T6-2*T7 )     +    D2*(T8-T10) 
1  +    D3*  (T9-T10)  ) 

C 

998    RETURN 
END 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      BCRMOl  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCRMOl  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFECIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS                       * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  FIRST  INTERMEDIATE* 

C  *  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF  FINITE     * 

C  *  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL             * 

C  *  COORDINATES.                                                 * 

Q  ****************************************************************** 

C      PROGRAM  LINE  2  604 

SUBROUTINE  BCRMOl  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI,  DR,  DZ,  RAD,  RMAX,  RMIN-,  THICK,  ZMAX,  LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2 , T3, T4, T5, T6, T7, T8 , T9, T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2 ) 

A  =  -FO/2 

B  =  1  +  FO/2* (2  +  D3*  (HSUBO+D5*EPSUBO) ) 

C  =  -FO/2 

D  =  Tl  +  FO/2* (Dl*  (T2+T3-2*T1)  +  D2*(T4-T1) 

1  +  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998   RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCRM02  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCRM02  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFICIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS                      * 

C  *  OF  A  RIGHT -CIRCULAR  CYLINDER  FOR  THE  SECOND  INTERMED-   * 

C  *  IATE  STEP  (PHI  DIRECTION)  IN  BRIAN'S  METHOD  OF           * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL     * 

C  *  COORDINATES.                                               * 

Q  ****************************************************************** 

C      PROGRAM  LINE  2639 

SUBROUTINE  BCRM02  (A,B,C,D) 
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IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR*(RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -Dl*FO/2 

B  =  1  +  F0/2*(2*D1  +  D3* (HSUBO  +  D5*EPSUBO) ) 

C  =  -Dl*FO/2 

D  =  Tl  +  FO/2* (  (T2+T3-2*T4)  +  D2*(T5-T1) 

1  +  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      BCRM03  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCRM03  -  THIS  SUBROUTINE  COMPUTES  THE  COEFFICIENTS  FOR  NODES  AT* 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS                     * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  FOR  THE  THIRD  INTERMED-   * 

C  *  IATE  STEP  (RADIAL  DIRECTION)  IN  BRIAN'S  METHOD  OF       * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL    * 

C  *  COORDINATES.                                              * 

Q  ****************************************************************** 

C      PROGRAM  LINE  2  67  4 

SUBROUTINE  BCRM03  (A,B,C,D) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI, EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2 , T3, T4, T5, T6, T7, T8, T9, T10, TINF, TSUR 
C  ***  BODY  *** 

Dl  =  (DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2) 

A  =  -D2*FO/2 

B  =  1  +  FO/2*(D2  +  D3* (HSUBO  +  D5*EPSUBO) ) 

C  =  O.D+00 

D  =  Tl  +  FO/2* ( (T2+T3-2*T4)  +  Dl* (T5+T6-2*T7 ) 

1  +  D3* (QPSUBO  +  HSUBO*TINF  +  D5*EPSUBO*TSUR) ) 

998    RETURN 
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END 
C 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      BCRM04  FORTRAN  A  -  (REV.  11/16/88) 

Q  ****************************************************************** 

C  *  BCRM04  -  THIS  SUBROUTINE  COMPUTES  THE  NODAL  TEMPERATURES  AT  * 

C  *  THE  OUTER  SURFACE  OF  THE  MID-LAYERS  * 

C  *  OF  A  RIGHT-CIRCULAR  CYLINDER  USING  BRIAN'S  METHOD  OF  * 

C  *  FINITE  DIFFERENCE  ANALYSIS  IN  3-D  POLAR-CYLINDRICAL  * 

C  *  COORDINATES.  * 

Q         ****************************************************************** 

C      PROGRAM  LINE  2708 

SUBROUTINE  BCRM04  (TNEW) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /CONDUC/  DKR,DKP,DKZ 

COMMON  /CONVEC/  HSUBN, HSUBS, HSUBI, HSUBO 

COMMON  /GEOMET/  DPHI, DR, DZ, RAD, RMAX, RMIN, THICK, ZMAX, LPHI 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS , QPSUBI , QPSUBO 

COMMON  /PARAMS/  CSUBP,RHO 

COMMON  /RADN/    EPSUBN, EPSUBS, EPSUBI , EPSUBO, SIGMA 

COMMON  /TEMPS/   Tl, T2, T3, T4, T5, T6, T7, T8, T9,  T10,  TINF,  TSUR 
C  ***  BODY  *** 

Dl  =  <DKP*DZ**2) / (DKZ*RAD* (RAD-DR/4) *DPHI**2) 

D2  =  (2*DKR* (RAD-DR/2) *DZ**2) / (DKZ* (RAD-DR/4) *DR**2) 

D3  =  (2*RAD*DZ**2) / (DKZ* (RAD-DR/4) *DR) 
C      ***  NO  D4  REQUIRED  *** 

D5  =  SIGMA* (Tl+TSUR) * (T1**2+TSUR**2 ) 

D6    =    1    +    FO*D3* (HSUBO    +    D5*EPSUBO) 

TNEW   =    1/D6MT1    +    FO*  (  (T2+T3-2*T4)     +   Dl*  (T5+T6-2*T7 ) 
1  +    D2*(T8-T9)     +    D3* (QPSUBO    +    HSUBO*TINF    +    D5*EPSUBO*TSUR) ) ) 

C 

998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      MAP122  FORTRAN  A  -  (REV.  10/04/88) 

Q  ********************************************************* 

C      *  MAP  122  -  SUBROUTINE  TO  MAP  MATRIX  ONE  ONTO  MATRIX  TWO  * 

Q  ********************************************************* 

C      PROGRAM  LINE  2737 

SUBROUTINE  MAP122  (DMAT1, DMAT2 ) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /ARRSIZ/  III,JJJ,KKK 

COMMON  /MATSIZ/  NLAYER, NODES, NPHI 

DIMENSION  DMAT1 (III, JJJ,KKK) , DMAT2 (III, JJJ,KKK)  DO  100  LAYER=1,KKK 

DO  200  IPHI=1,JJJ 

DO  300  INCRAD=1,III 

DMAT2 (INCRAD, IPHI, LAYER)  =  DMAT1 ( INCRAD, IPHI, LAYER) 
300  CONTINUE 

20  0        CONTINUE 
100    CONTINUE 
998    RETURN 
END 
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c 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

c 

C      TRIDAG  FORTRAN  A  (REV.  11/07/88) 

Q  *********************************************************** 

C  *  TRIDAG  -  SUBROUTINE  FOR  SOLVING  A  SYSTEM  OF  LINEAR,  * 

C  *  SIMULTANEOUS  EQUATIONS  HAVING  A  TRIDIAGONAL  * 

C  *  COEFFICIENT  MATRIX.   THE  EQUATIONS  ARE  NUM-  * 

C  *  BERED  FROM  IF  THROUGH  L,  AND  THEIR  SUBDIAGONAL, * 

C  *  DIAGONAL,  AND  SUPER-DIAGONAL  COEFFICIENTS  ARE  * 

C  *  STORED  IN  THE  VECTORS  A,  B,  AND  C.   THE  COM-  * 

C  *  PUTED  SOLUTION  VECTOR  V(IF)...V(L)  IS  STORED  * 

C  *  IN  THE  VECTOR  V.  * 

Q  *********************************************************** 

C      PROGRAM  LINE  27  66 

SUBROUTINE  TRIDAG  (IF, L, A, B, C, D, V) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A(L),B(L),C(L),D(L),V(L) 

DIMENSION  BETA (100) , GAMMA (100) 
C 

C      ***  COMPUTE  INTERMEDIATE  ARRAYS  BETA  AND  GAMMA  *** 
C 

BETA(IF)  =  B(IF) 

GAMMA(IF)  =  D (IF) /BETA(IF) 

IFP1  =  IF  +  1 

DO  100  I=IFP1,L 

BETA(I)  =  B(I)  -  A(I)  *C(I-1) /BETA(I-l) 

100        GAMMA(I)  =  (D(I)  -  A(I) *GAMMA(I-1) ) /BETA(I) 
C 

C      ***  COMPUTE  FINAL  SOLUTION  VECTOR  V  *** 
C 

V(L)  =  GAMMA(L) 

LAST  =  L  -  IF 

DO  200  K=1,LAST 

I  =  L  -  K 

200        V(I)  =  GAMMA(I)  -  C(I) *V(I+1) /BETA (I) 
RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      COMPARE  FORTRAN  A  -  (REV.  11/05/88) 

Q  ********************************************************* 

C  *  COMPAR  -  SUBROUTINE  TO  COMPARE  THE  RESULTS  OF  BRIAN'S  * 

C  *  METHOD  AGAINST  THE  RESULTS  OF  THE  EXPLICIT    * 

C  *  METHOD  FOR  A  GIVEN  GEOMETRY  AND  BOUNDARY      * 

C  *  CONDITIONS.   CAN  BE  CALLED  FROM  EVALID  ONLY.  * 

Q  ********************************************************* 

C      PROGRAM  LINE  2800 
SUBROUTINE  COMPAR 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  PE(15,15,15) 
REAL  TIME 

OPEN  (UNIT=11,FILE='EBCMP' ) 
OPEN  (UNIT=14,FILE='BCRDAT' ) 
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OPEN  (UNIT=15,FILE='ECRDAT') 

ICOUNT  =  0 

JCOUNT  =  0 

READ  (14,*)  NODES, NPHI, NLAYER 


READ  (15 
WRITE  (* 
2  SIZE: ' 
WRITE  (* 


*)  LL,MM,NN 

*)  'MATRIX  1  SIZE: ', NODES, NPHI, NLAYER  WRITE  (*,*)   'MATRIX 
LL,MM,NN 
*) 

IF  ( (NODES. NE.LL) .OR. (NPHI. NE. MM) .OR. (NLAYER. NE.NN) )  THEN  WRITE 
(*,*)  i***  ABORTED  COMPARE  -  ARRAY  SIZES  OF  UNEQUAL  LENG  1TH  ***' 
GOTO  998 
ENDIF 

1  WRITE  (11,5) 

5      FORMAT  (Tl, 'COMPARISON  OF  BRIAN »' S  METHOD  TEMPERATURES 

AGAINST  EXP  1LICIT  METHOD  TEMPERATURES '/, Tl, 'EXPRESSED  AS  A 

PERCENTAGE  DIFFEREN  2CE'//) 

WRITE  (11,*)  'BCRSAT' 

WRITE  (11,*) 

WRITE  (11,*)   '***  999.0  INDICATES  ZERO  VALUE  AS  DIVISOR  ***' 

WRITE  (11,*) 

WRITE  (11,*) 

2  READ  (14, *,END=998)  BTIME,BDTIME 
ICOUNT=ICOUNT+l 

ITIME=BTIME 

READ  (15, *,END=998)  ETIME,EDTIME 

JCOUNT=JCOUNT+l 

JTIME=ETIME 

IF  (ITIME.NE. JTIME)  THEN 

WRITE  (*,*)   '***  ABORTED  COMPARE  -  TIME  MISMATCH  ***'  WRITE  (*,*) 

ITIME,EDTIME 

WRITE  (*,*)  JTIME, BDTIME 

GOTO  998 

ENDIF 

DO  100  K=l, NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14,*)  DMAT1 

READ  (15,*)  DMAT2 

IF  (DMAT2.NE.0)  THEN 

PE(I,J,K)  =  (DMAT1-DMAT2) /DMAT2  *  100  ELSE 

PE(I,J,K)  =  999. 

ENDIF 
300  CONTINUE 

200       CONTINUE 
100    CONTINUE 

CALL  PRTARR  (BTIME, BDTIME, PE, NODES, NPHI, NLAYER)  GOTO  2 
998    IF  ( I COUNT. NE. JCOUNT)  THEN 

WRITE  (*,*)  'COMPAR  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

WRITE (11,*)  'COMPAR  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

ENDIF 

CLOSE  (11) 

CLOSE  (14) 

CLOSE  (15) 

RETURN 
END 
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csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 


300 
200 

100 

55 

GOTO 


SHTFRM  FORTRAN  A  -  (REV.  11/14/88) 


************************************************************** 


SHTFRM  -  SUBROUTINE  TO  PRINT  THE  TEMPERATURES  OF  A  DESIG- 
DESIGNATED  NODE  FROM  A  DATA  FILE. 


************************************************************** 

PROGRAM  LINE  2871 

SUBROUTINE  SHTFRM  (L,M,N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/  ALFA, FO, QPSUBN, QPSUBS, QPSUBI, QPSUBO  COMMON  /TIMES/ 

DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION  TEMP (15, 15, 15) 

OPEN (UNIT=13, FILE= ' ANALYT ' ) 

OPEN (UNIT=14, FILE= ' BCRDAT ' ) 

OPEN (UNIT=15, FILE= ' BCRSHT ' ) 

READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES, NPHI,NLAYER 

WRITE  HEADERS  TO  DATA  FILE  15  (ERROR) 

'BCRSAT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION1 

'DATA  SAVED  AS  FILE:1 

'CPU  TIME: ' 

GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) :', NODES, NPHI, NLAY 


'SELECTED  NODE  FOR  PRINTOUT :', L, M, N  WRITE  (15,*) 
"THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 

'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (15,*) 

'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 

'OUTER  SURFACE  HEAT  FLUX  (W/M**2 ) : ' , QPSUBO  WRITE 


WRITE 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*)  ' 

1ER 

WRITE 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*) 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15,*) 

(15,*) 

WRITE 

(15,*) 

(15,*) 

WRITE 

(15,*) 

WRITE 

(15, 15) 

15 

FORMAT 

WRITE 

(15,25) 

25 

FORMAT 

(T33, 'NODE' ) 

(T5, "TIME',T17, 'DELTIM' , T30, 'TEMPERATURE') 
READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14 
READ  (14, *,END=998)  TIME, DELTIM 
DO  100  K=1,NLAYER 
DO  200  1=1, NODES 
DO  300  J=1,NPHI 

READ  (14, *,END=997)  TEMP(I,J,K) 
CONTINUE 

CONTINUE 
CONTINUE 
WRITE  (15,55)  TIME, DELTIM, TEMP (L,M,N) 

FORMAT  (T1,F9.2,T15,F8.4,T2  6,F14.8) 


(*DATA)  2 
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9  97    WRITE  (*,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864"  WRITE 
(15,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  864'  998    CLOSE  (13) 

CLOSE  (14) 
CLOSE  (15) 
RETURN 
END 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 
c 

C      LNGFRM  FORTRAN  A  -  (REV.  11/05/88) 

Q         ************************************************************ 

C      *  LNGFRM  -  SUBROUTINE  TO  PRINT  FULL  MATRIX  OF  TEMPERATURES  * 
C      *  FROM  DATA  FILES.  * 

Q  ************************************************************ 

C      PROGRAM  LINE  2933 

SUBROUTINE  LNGFRM 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/    ALFA, FO, QPSUBN, QPSUBS, QPSUBI,  QPSUBO 

COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION  TEMP (15, 15, 15) 

OPEN  (UNIT=11,FILE='BCRLNG' ) 

OPEN  (UNIT=14,FILE='BCRDAT' ) 

READ  (14,*)  NODES, NPHI,NLAYER 

WRITE  (11,*)   'BCRSAT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION' 

WRITE  (11,*) 

WRITE  (11,*)   'DATA  SAVED  AS  FILE:' 

WRITE  (11,*) 

WRITE  (11,*)  'CPU  TIME:' 

WRITE  (11,*) 

WRITE  (11,*)  'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) :', NODES, NPHI , NLA 

IYER 

WRITE  (11,*) 

WRITE  (11,*)   'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 

(11,*) 

WRITE  (11,*)   'SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (11,*) 

WRITE  (11,*)   'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):   ' , FO  WRITE 

(11,*) 

WRITE  (11,*)   'SURFACE  HEAT  FLUX  (W/M**2 ) : ' , QPSUBO  WRITE  (11,*) 

WRITE  (11,*) 

1      READ  (14, *,END=998)  TIME,DTIME 

DO  10  0  K=1,NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14,  *,END=997)  TEMP(I,J,K) 
30  0  CONTINUE 

200        CONTINUE 

10  0    CONTINUE 

CALL  PRTMAT  (TIME, DTIME, TEMP, NODES, NPHI , NLAYER)  GOTO  1 
997    WRITE  (6,996)  I,J,K 

996    FORMAT  (IX, 'LNGFRM:  READ  BEYOND  DATA  IN  *DATA  (I, J, K) ' , 314 )  998 
REWIND  14 
CLOSE  (11) 
RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
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C      PRTMAT  FORTRAN  A  -  (REV.  11/04/88) 

n  it********************************************************* 

C      *  PRTMAT  -  SUBROUTINE  TO  PRINT  THREE  DIMENDIONAL  MATRIX   * 
C      *  TO  FILE  11  (*LONG) .  * 

Q  ********************************************************** 

C      PROGRAM  LINE  2984 

SUBROUTINE  PRTMAT  (TIME, DTIME, DMAT, NODES, NPH I,  NLAYER)  IMPLICIT 

DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT (15, 15, 15) 

WRITE  (11,15)  TIME, DTIME 
15     FORMAT  (T1,'TIME  =  ',F9.3,'  SEC ',  T30,  '  TIME  INCREMENT  =  ',F9.3,'  SE 

1CJ 

DO  100  K=l, NLAYER 

WRITE(11,10)  K 
10         FORMAT  (//Tl, 'NODE: ',T45, 'LAYER  NUMBER:  ',14/)  DO  200  1=1, NODES 

WRITE  (11,25)  I, (DMAT(I, J,K) ,J=1,NPHI) 
25  FORMAT  (Tl, I3,T10, 4 (D16.10, IX) ) 

200       CONTINUE 
100    CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 
998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      PRTARR  FORTRAN  A  -  (REV.  11/04/88) 

Q  ********************************************************** 

C      *  PRTARR  -  SUBROUTINE  TO  PRINT  THREE  DIMENDIONAL  MATRIX   * 
C      *  TO  FILE  11  (*LONG) .  * 

Q  ********************************************************** 

C      PROGRAM  LINE  3011 

SUBROUTINE  PRTARR  (TIME, DTIME, DMAT, NODES, NPHI, NLAYER)  IMPLICIT 

DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  DMAT (15, 15, 15) 

WRITE  (11,15)  TIME, DTIME 
15     FORMAT  (Tl, 'TIME  =  ',F9.3,'  SEC ', T30, ' TIME  INCREMENT  =  ',F9.3,'  SE 

1C) 

DO  100  K=l, NLAYER 

WRITE(11,10)  K 
10        FORMAT  (//Tl, 'NODE: ',T45, 'LAYER  NUMBER:  ',14/)  DO  200  1=1, NODES 

WRITE  (11,25)  I,  (DMAT(I, J,K) , J=1,NPHI) 
25  FORMAT  (Tl, I3,T10, 4 (F9.3, IX) ) 

200       CONTINUE 
100    CONTINUE 

WRITE  (11,*) 

WRITE  (11,*) 
998    RETURN 
END 
C 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      ERROR  FORTRAN  A  -  (REV.  11/05/88) 
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c 
c 
c 
c 
c 
c 


ELSE 

GOTO 

ENDIF 

C 

1 

c 


15 
25 

C 
2 


300 
200 


************************************************************** 

*  ERROR  -  SUBROUTINE  TO  COMPUTE  ERROR  FOR  AND  PRINT  TEMPERA-  * 

*  TURES  OF  A  DESIGNATED  NODE  FROM  A  VALIDATION  DATA   * 

*  FILE.  * 
************************************************************** 

PROGRAM  LINE  3039 

SUBROUTINE  ERROR  (L,M,N) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON  /HEAT/   ALFA, FO, QPSUBN, QPSUBS, QPSUBI , QPSUBO 

COMMON  /TIMES/  DELTIM, DTMAX, FINTIM, LIMIT 

DIMENSION  TEMP (15, 15,15) 

REAL  TIME 

OPEN(UNIT=13,FILE=*ANALYT' ) 

OPEN(UNIT=14,FILE='BCRDAT' ) 

OPEN  (UNIT=15, FILE= ' BCRERV ' ) 

IF  ( ( (QPSUBO. GT. 1352) .AND. (QPSUBO . LT . 1354) ) .OR. ( (QPSUBO .GT . 14999) 

1AND. (QPSUBO. LT. 15001) ) )  THEN 

CONTINUE 

998 

READ  IN  MATRIX  SIZE 

READ  (14,*)  NODES,NPHI,NLAYER 

WRITE  HEADERS  TO  FILE  15  (*ERROR) 


WRITE 
WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

1ER 

WRITE 

WRITE 

WRITE 

WRITE 

(15,*) 
WRITE 
WRITE 

(15,*) 
WRITE 

(15,*) 
WRITE 
WRITE 
FORMAT 
FORMAT 


'BCRSAT  -  WITH  CONDUCTION,  CONVECTION  AND  RADIATION1 
'DATA  SAVED  AS  FILE: ' 
•CPU  TIME: ' 


15,*) 
15,*) 
15,*) 
15,*) 
15,*) 
15,*) 
15,*) 'GRID  SIZE  (RADIAL, PHI, Z  DIRECTIONS) 


' ,NODES,NPHI,NLAY 


15,*) 

15, *) 'SELECTED  GRID  POINT 


15,*) 
15,*) 

15,*) 
15,*) 


\L,M,N 

'THEORETICAL  MAX  TIMESTEP  (EXPLICIT) :', DTMAX  WRITE 

•SELECTED  TIMESTEP  (SEC) :', DELTIM  WRITE  (15,*) 

'GRID  FOURIER  NUMBER  (Z, DELTIM  DEPENDENT):  ' , FO  WRITE 


15,*)   'OUTER  SURFACE  HEAT  FLUX  (W/M**2) :', QPSUBO  WRITE 


15,*) 

15,15) 

(T33, 'NODE' ,T4 8, 'ANALYTIC ',T64, 'PERCENT' )  WRITE  (15,25) 

(T5, 'TIME',T17, 'DELTIM' , T30, ' TEMPERATURE ', T4 6, 'TEMPERATURE' 

1,T65, 'ERROR'/) 

READ  TIME,  DELTIM  AND  TEMPERATURE  MATRICES  FROM  FILE  14  ( *DATA) 

READ  (14, *,END=998)  TIME, DELTIM 

DO  100  K=1,NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14,  *,END=995)  TEMP(I,J,K) 
CONTINUE 
CONTINUE 
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100    CONTINUE 

C      READ  IN  APPROPRIATE  ANALYTIC  SOLUTIONS  FROM  FILE  13  (ANALYT) 

IF  (QPSUBO.LT.1400)  THEN 

READ  (13, 35,END=996)  EXACT 
35  FORMAT  (T19,F14.8) 

ELSE 

READ  (13, 45,END=997)  EXACT 
45  FORMAT  (T39,F14.8) 

ENDIF 
C      COMPUTE  PERCENT  ERROR  AND  WRITE  TO  FILE  15  (ERROR) 

PE  =  (EXACT-TEMP (L,M,N) ) /EXACT  *  100. 

WRITE  (15,55) 

TIME, DELTIM, TEMP (L,M,N) , EXACT,  PE  55         FORMAT 

(T1,F9.2,T15,F8.4,T26,F14.8,T41,F14.8,T61,F9.3)  GOTO  2 

995  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2515' 

WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2525' 

996  WRITE  (*,*)   "ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2521' 
WRITE  (15,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2521' 

997  WRITE  (*,*)  'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2514' 
WRITE  (15,*)   'ERROR  -  EOF  READ  ERROR  ON  PROGRAM  LINE  2524' 

998  CLOSE  (13) 
CLOSE  (14) 
CLOSE  (15) 
RETURN 

END 

C 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

c 

C      CMPSHT  FORTRAN  A  -  (REV.  11/22/88) 

Q  ********************************************************* 

C  *  CMPSHT  -  SUBROUTINE  TO  COMPARE  THE  RESULTS  OF  BRIAN'S  * 

C  *  METHOD  AGAINST  THE  RESULTS  OF  THE  EXPLICIT  * 

C  *  METHOD  FOR  A  GIVEN  GEOMETRY  AND  BOUNDARY  * 

C  *  CONDITIONS.   DATA  SAVED  IN  SHORT  FORMAT.  * 

C  *  NOTE  -  CALLED  FROM  BCRV  ONLY.  * 

Q  ********************************************************* 

C      PROGRAM  LINE  3132 
SUBROUTINE  CMPSHT 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
REAL  TIME 

OPEN  (UNIT=14,FILE='BCRDAT' ) 
OPEN  (UNIT=15,FILE='ECRDAT' ) 
OPEN  (UNIT=17, FILE= 'CMPSHT ' ) 
ICOUNT  =  0 
JCOUNT  =  0 
READ  (14,*)  NODES, NPHI,NLAYER 

*)  LL,MM,NN 

*)   'MATRIX  1  SIZE: ', NODES, NPHI,NLAYER  WRITE  (*,*)   'MATRIX 

LL,MM,NN 

*) 
IF  ( (NODES .NE.LL) .OR. (NPHI .NE.MM) .OR. (NLAYER.NE.NN) )  THEN 
WRITE  (*,*)   ****  ABORTED  COMPARE  -  ARRAY  SIZES  OF  UNEQUAL  LENGTH 


READ  (15 
WRITE  (* 
2  SIZE: ' 
WRITE  (* 


GOTO  998 

ENDIF 
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1  WRITE  (17,15) 

15     FORMAT  (Tl, 'COMPARISON  OF  BRIANS  METHOD  TEMPERATURES  AGAINST  EXPLI 

1CIT  METHOD  TEMPERATURES '/, Tl ,  ' EXPRESSED  AS  A  PERCENTAGE 

DIFFERENCE  2. '/) 

WRITE  (17,*)  'BCRSAT  SHORT  FORMAT' 

WRITE  (17,*) 

WRITE  (17,*)  'SAVED  AS  FILE:' 

WRITE  (17,*) 

WRITE  (17,*)  'CPU  TIME:' 

WRITE  (17,*) 

WRITE  (17,*)  '***  999.0  INDICATES  ZERO  VALUE  AS  DIVISOR 
***'  WRITE  (17,*) 
WRITE  (17,*) 
WRITE  (17,25) 
25     FORMAT  (T33, 'EXPLICIT', T48, 'BRIANS', T64, 'PERCENT')  WRITE  (17,35) 
35     FORMAT  (T5,  'TIME ', T30,  *  TEMPERATURE ', T46,  ' TEMPERATURE ', T62,  'DIFFERE 
1NCE'/) 

2  READ  (14, *,END=998)  BTIME,BDTIME 
ICOUNT=ICOUNT+l 

ITIME=BTIME 

READ  (15, *,END=998)  ETIME,EDTIME 

JCOUNT=JCOUNT+l 

JTIME=ETIME 

IF  (ITIME.NE. JTIME)  THEN 

WRITE  (*,*)   '***  WARNING  -  TIME  MISMATCH  IN  CMPSHT  ***' 

WRITE  (*,*)  ITIME,BTIME 

WRITE  (*,*)  JTIME, ETIME 

ENDIF 

DO  100  K=1,NLAYER 

DO  200  1=1, NODES 

DO  300  J=1,NPHI 

READ  (14,*)  DMAT1 

READ  (15,*)  DMAT2 

IF  ( (I.EQ.NODES) .AND. (J.EQ.2) .AND. (K . EQ . NLAYER) .AND. 

1 (DMAT2.NE.0) )  THEN 

PE  =  (DMAT1-DMAT2) /DMAT2  *  100 

WRITE  (17,45)  BTIME,DMAT2,DMAT1,PE  45  FORMAT 

(T1,F9.2,T2  6,F14.8,T41,F14.8,T61,F9.3)  ELSE 

PE  =  999. 

ENDIF 
300  CONTINUE 

200       CONTINUE 
100    CONTINUE 
GOTO  2 
998    IF  (ICOUNT.NE. JCOUNT)  THEN 

WRITE  (*,*)  'CMPSHT  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

WRITE (17,*)   "CMPSHT  -  EOF  ERROR  ON  PROGRAM  LINE  2431  OR  2433' 

ENDIF 
CLOSE  (14) 
CLOSE  (15) 
CLOSE  (17) 
RETURN 
END 
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APPENDIX  G 
APPLICATION  MODEL  CHARACTERISTICS 

A      ASSUMPTIONS* 

1.  Satellite 

•  Three-axis  stabilized 

•  Orbit  lies  within  and  z-axis  normal  to  the  plane  of  the  ecliptic 

2.  Earth 

•  Atmosphere  is  a  diffuse  scatterer  of  solar  radiation 

•  Albedo  coefficient  is  0.30  (nominal) 

•  Emitted  infrared  heat  flux  is  237  W/m2 

•  Shadow  appears  cylindrical  from  low  orbits 
a      Sun 

•  Diffuse,  blackbody  emitter  of  radiation 

a      OTHER  PARAMETERS* 

Internal  Heat  Loading:  q*&   =  1000  W  (avg) 

Solar  flux:  q" so]ar  =  1353  W/m2 

Earth's  IR:  <?"/*  =  237  W/m2 

Albedo  coefficient:  albedo  =  0.30 

Temperature  of  deep  space:  Tsur  =  4  K 

Geometric  shape  factor:  F  =  0.31 

(flat  plate,  320  km) 

Surface  absorptivity:  a  =  0.4  (nominal) 

(white  paint) 
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Surface  emissivity: 
(white  paint) 


£  =  0.9 


Operating  Limits 
Non-op/turn-on  Operating 

40/+40  K  -15/+40  K 


SHADOW 
ZONE 


1 


0 


SOLAR 


FLUX 


Figure  15.  Orbit  Time  Numbering  Sequence 


TIME 
0<r'  <t. 


'l*'    <*2 


t2*t<tt 


FLUX  CONDITIONS 

FLUX  CONDITION 
4\  =aN(f  „  cos  (ox) 

<f's  =  a\.(f,Eir  +a  <t'*»  cos(cor')J 
(fo  =  0.5ao</'ssin(ax') 

cf's=as  {cf' Eir  +  [a  +  cos  (ox) Ic/'^} 
(f'o=0.5aoqosin  (ox') 
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'3^     '    <*4 


1  -  exp 


u-* 


tA<  t  <ts 


where  times  in  seconds  are: 


(jTo  =  0.5ao|Lfl+<f«.  sin(fi*')J 

•\l-cxp  — f 

£fo  =  0.5aocf'am  |  sin  (ax')  | 

=  0 

=  1360 
=  1629 

=  3757 
=  3811 


=  4080 


*  Taken  from  Agrawal  [Ref.  12] 
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